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-TITLE A ge t+ - TM78/TU78 MAGTAPE DRIVER 
IDENT ‘v04-000" 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
yfQUEPRENT. CORPORATION, © MAYNARD. MASSACHUSETTS. 
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;* . 
;* * 
;* * 
-* ® 
;* * 
; F TWARE i 4 gt eg UNDER A LICENSE AND MAY BE USED AND cores ® 
;@ ACCORDANCE WITH THE TERMS OF SUCH biC AND WITH THE * 
;@ OF THE ABOVE peti NOTICE. THIS SOFTWARE OR ANY OTHER * 
;* HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. a 
-* * 
-* ® 
;* a 
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;* ® 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORATI On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SEATS CAAAKATATKATETATATAAAKAAAAKAAARAAAAAEAAAARAAAAAARAAARETAARATARAARAEEARAARAAAAEAEEAAEEE 
; Robert Rappaport 29-February-1980 
MODIFIED BY: 


v03-018 mMMD0310 Meg D 19-Jul-1984 9:33 
Add support for the UCBSL "WEDIA. ID field 


v03-017 RASO300 Ron Schaefer 27-Apr-1984 
Add DEVSM_NNM characteristic to Berane so that these 
devices will have the ‘'‘node$"’ prefix 


V03-016 MMD0221 Meg Dum 9-Jan-1984 17:05 
Fixed SKIPRECORD to set ORT SM. EOF when TM is encountered. 


v03-015 ROW0258 Ralph 0. Weber 17-NOV-1983 
The Paul Painter Memorial Enhancement 
Named for one of the unfortunate customers who suffered — 
to determine the great UCBSL_MT_RECORD secret while try ying te 
create a user-written magtape driver agg change eliminates 
use of the device dependent field ue F_RECORD in favor of 
the device independent field, Met ie _REC CORD. 


v03-014 mnodces won be 9-Nov-1983 19:18 
Fixed a bug in SUBCODE "RUT “handling where the routines address 
didn't get relocated properly. 


v03-013 mmMD0201 unont 7-Sep-1983_ 15 
ncrease TU78 hay A. timeouts to_include 3600'¢ apes. This 
cludes aA SPACE the constants TU78_MAX_REWIND, tu 8_MAX_DSE 
and TU78_MAX_SPAC 
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v03-012 ROW0213 Ralph 0. Weber 23-AUG-1983 
Ch ange basing for devic sec eepentens use {ros UCBSL_DP_LINK+4 to 
a field edabantenk UCBSK TAPE_LENGTH. This allows the 
dey ice-indpendent UCB to Be steered” without having to edit 
ule. 


v03-011 MMD0198 Dum Nit TRI -1983 13:16 
Added code in CONT OL. INIT and et I + to test the 
rev level of the microcode. This is needed because 
the TM78 controller has a know problem where it might 
lose data at EOT, therefore we want to let customers 
know they may run into problems. When the ucode is 
available to the field then we will not configure in 
then devices until they are brought up to rev. 


v03-010 page Robert L. Rapes ort 4 Pg -1983 
Allow UCB to include new DUAL PORT extension x 
changing base of where we begin the private TFDRIVER 
extension from UCBSL_DPC+4 to UCBSL_DP_LINK+4. 


v03-009 RLR50603 Robert L. Rappaport 55-Jan-1983 
When reedtog. do a SENSE command when we are positioned 
after the first record after the read completes. 


: y03-008 RLRFAULT Robert L- Rappaport 11-Nov-1982 
: Allow TM Clears every 15 seconds (instead of 10 minutes). 
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V03-007 RLR48869a Robert L. Reppapert 11-Nov-1982 
Add additional checking to b le to tolerate return of 
zero length in MF_BC register in read opposite. 


V03-006 RLR48869 i. Soppeeere 29-0 t-1982 
Correct error “ay READ  oPPOST that used wrong register. 


v03-005 nee Robert L Hate port 22-0c t-1982 
If at BOT, have RECORD SENSE NFO not update density in 
UCBs. DEVOEPEND. In this way the last user specified 
density prevails. 


v03-004 KDM0002 hleen D. Morse 28-Jun-1982 
Added SDYNDEF, SPROEF “ann SSSDEF. 


v03-003 R at LRECOO1 . ¢. Reppaport 17-June-1982 


Make AVAILABLE “Buffered 1/0 in FDOT. 
2. Change BLSS to BGEQU in ISSUE _TMCLR. 


; T™M78/TU78 MAGTAPE DRIVER 
; MACRO LIBRARY CALLS 


SADPDEF sDefine ADP offsets. 
SCRBDEF ‘Define CRB offsets 
SODBDEF Define DDB offsets 


| | “DODDS OOO0OC 000000 000000000000 00 00 00 00 0000 INI NIN 
FWD "OC ODNAUS ANN? ODNA US WIN ( O ODNOA UE WN OC OONO 
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F sDefine DEVICE CHARACTERISTICS bits 
F ‘Define DPT etfs ets 

F :Define d gyneaye C data structure types 
: :Define off = : 

F 
F 


Oooo 
Ooo 
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‘Define DB offse 

:Define 1/0 FUNCTION codes 

:Define IRP offsets 

‘Define MBA REGISTER offsets 

‘Define MAGTAPE STATUS bits 

Define processor pepieters 

:Define s stem oo > codes 
F ‘Define UCB offse 
F :Define YNTERRUPT. DISPATCH VECTOR offsets 
F :Define WCB offsets 


Local Macros 


SOoOOooooooooooooooooooooooooooo 
SOoOoOCCOSOOCSOSOOSOOSOOSOSOOOOSOOOOSOSoO 
SOOO OCCOOOOOOOOCOOOSOOOOoOOOoOSOS 


3; SUBSAVE = macro to save the return point of a subroutine in the SUBSTACK 
: located in the UCB. The SUBSTACK is a mechanism that allows for 
3 poring several nested return points in a context where data cannot 
; be left on the normal stacks such as when IOFORKs or WFIKPCH macros 
: are executed. The SUBSTACK is implemented TKck gt Locos tng an array of 
; songuerds in the UCB known as UCBSL_MF ng?! K and b y also providing 
; another longword in the UCB known as UCBSL SUBSP which is used to 
; oint to the next available Longword in the MEOBSTACK array. At 
: TARTIO time we initialize UCB$L_SUBSP to point to the base of this 
0000 ; array and from then on the SUBSAVE, SUBRET RN, SUBPUSH and SUBPOP 
464 : macro invocations keep this pointer upto date. 
0000 
0000 «MACRO SUBSAVE 
0000 POPL aye MF_SUBSP(R5) ; Save return on SUBSTACK. 
0000 ADDL cost _AF_SUBSP(R5) ; Update SUBSTACK pointer. 
0000 ENDM suaSA 
sss 
000 ; SUBRETURN = macro to pop the next value off the SUBSTACK and return control 
000 3 to this address. 
B8 3 
6 MACRO sions Tyas 
000 UCBSL_MF 40) ; Set SUBSTACK ptr to Last used entry. 


UBL SUB 

PUSHL Sucse _AF_ arty : Pop return from SUBSTACK to stack. 
RS8 ; Return to caller. 

.ENDM SUBRETURN 


; SUBPUSH = macro to push upto ten LONGWORDs onto the SUBSTACK. 


a a kk kk kh dt 
SID DPD PDA DDD TT £ BS BS SB BE EE EWAN III nononfononononuns 2 2 
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a SUBPUSH LWO,LW1,LW2,LW3,LW4,LWS,LW6,LW7,LW8 LW 
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- IRP LONGWORD ,<LWO,LW1,LW2,LW3,LW4,LW5,LW6,LW7,LW8,LW9> 
a oe 4 oev¥ec*eckes : Do only for explicit args. 


+ 
If NOT BLANK LONGWORD 
move LONGWORD, @UCBSL_MF _SUBSP(RS) ; Move value to SUBSTACK 


— @UCBSL_MF _SUBSP(R5) ; Clear SUBSTACK entry. 


ADDL #4,UCBSL_MF_SUBSP(RS) ; Update SUBSTACK pointer. | 


seVee®eetes 


.ENDR 
-ENDM SUBPUSH 
: SUBPOP = macro to pop upto ten LONGWORD values off the SUBSTACK. 


xe" SUBPOP LWO,LW1,LW2,LW3,LW4,LW5S,LW6,LW7,LW8,LW9 


2 A G — 
Pe | 
- IRP LONGWORD ,<LWO,LW1,LW2,LW3,LW4,LW5.LW6,LW7,LW8,LW9> 
ke ce “it LT patee*volles :; Do only for explicit args. 
me" SUBL #4,UCBSL_MF_SUBSP(RS) ; Update SUBSTACK pointer. | 
-1F NOT_BLANK LONGWORD 
oe @UCBSL_MF _SUBSP(R5) ,LONGWORD ; Move value from SUBSTACK 


-ENDR 
-ENDM SUBPOP 


; REWIND = macro to invoke REWIND ROUTINE. Invoked in_normal START_REWIND 

: logic and also in POWERFAIL_TIMEOUT routine. The macro prepares a 

; call to REWIND_ROUTINE by placing the needed arguments in RO and R1. 

3 The calling sequence provides for a REWIND command (be it UNLOAD or 

: REWIND) to be passed in RO, and a bitmask to be passed in R1. The 

5 only bit of interest in R1 is IOSM_NOWAIT, which instructs REWIND_ROUTINE 
; as to whether it should wait for the rewind to terminate. 

3 It also provides for an error return. 


MACRO REWIND CMD,WAIT, ERROR, LABEL 
1 MOVZBL #F _REWIND!GO_BIT.RO : If no CMD specified, assume REWIND 
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9 IF DIFFERENT RO, <CMD> 
MOVZBL CMD,RO : If specified, and different from 
00 -ENDC : RO, then move it to RO. 
09 .ENDC 
6 olf IDENTICAL YES, <WAIT> ‘ 
00 i CLRL R1 : Clear IOSM_NOWAIT bit in R1. 
00 ; IF IDENTICAL NO <A T> 
00 MOVZWL #IOSM_NOWAIT,R1 ; Set IOSM_NOWAIT bit in R1. 


RE CE Oe aca RE 


TFDRIVER - TM78/TU78 MAGTAPE DRIVER 16-SEP-1984 :08: AX/VMS Macro V04-00 Page 5 
Mia ti moet 90:08: 43 DRIVER. SRE ei FDORIVER.MAR; 1 ° (1) 
0 IFF 
IF DIFFERENT R1, <WAIT> 
ENC MOVZWL WAIT, *R1 3; Move specified mask to R1. 
ee 
-ENDC 
BSBw REW jw ROUTINE : Call REWIND_ROUTINE. 
0 -WORD ERRO Rata ABEL-.=2 ; Relative address of ERROR_LABEL. 
0 -ENDM = REWI 
Two macros to help coordinate with asynchronous ‘BB’ type fault attention 
; nterrupts and the actions we take as a result of them. TEST_TMRDY 


O bit. 


-ENDM 


SSIS SDE DDD DDD AAD TTT BB BBB BE EAI 
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: 


Srigtty the 
™M78 controller. 
@ special piece of code which tries to recover as best it can. 


-MACRO EX_NDT_CMD 


a invoked cec'or.t to loading final device registers and setting che 


T_TEST_TMRDY is invoked after awakening from a WF 
fest fo make sure nothing horrible has happened to the 
If either finds a problem, it branches to 


-MACRO Ad pe TEST_TMRDY ?L0 
BITW #UCBSA_MF_TMRDY!- : Is TMRDY or an ATIN 
UCBSM-MF "ATTN, = 3 pending? 
ucesu. SH CATING 
BEQL L : If NOT, branch around. 
LO BRW TM78_NOTREADY_PRIOR 
-ENDM PRIOR_TEST_TMRDY 
0 «MACRO POST_TEST_TMRDY 7L0 
BITw #UCBSM_ ne = TARDY! : Is TMRDY or an ATIN 
UCBSM- 3 pending? 
0 UCBSW_ BevSts(R$) 
0 BEQL : If NOT, branch around. 
Lo BRW TM78_NOTREADY_POST 


POST_TEST_TMRDY 


EX_NDT_CMD = Macro to EXECUTE a NDT command. 
Macro accepts four parameters: 


D - the symbolic name of the NDT command. 
PEAT = the repeat count to be loaded in the register. 
TIMEOUT - on Bh number of seconds to allow for TIMEOUT for 


this and. 
ERROR LABEL - the label to which control should be 


transferred in the event a call to TIMEQUT_POWERFAIL 
should experience return. 


The macro loads UCBSW_MF_NDTCR with the ps oapi ate connend | aalading 
the repeat count. with 

value passed as the TIMEOUT 
NDT command executor subroutine NDT_EXECUTOR. 


It™alSo loads UCBSL_M 


arameter.— it then Ray ~ common 


CMD ,REPEAT, TIMEOUT ,ERROR_LABEL 
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-SEP-1984 DRIVER. SRCITFORIVER.MAR; 1 
§ sNTYPE XX. CMD ; Determine if operand is register. 
oXK= KK. “a 4&*xF 
: EQUAL .XxXX.=5 ; If it is a register then... 
MOVZBW CMD Move command code and GO_BIT ren register 
ucB$w MF _NDTCR(RS) to NDT command template in bce. 
w1FF ; If operand is NOT a register then... 
MOVZBW #F_‘CMD'!GO BIT ; Move Literal command code + GO BIT 
UCBSwW_MF "NDTCR(RS) i; to NDT command template in UCB. 


° NB REPEAT ; Only if we have an explicit REPEAT. 
ASSUME MF_NDTO_V_CCNT €Q 

pon a “NDT “5: CCNT €Q 

UCBSW_MF_NDTCR#1(R5) ; Move explicit REPEAT count to template. 


m 
YE 
= 


IF NB TIMEOUT ; Only assemble following if TIMEOUT 


; is specified. 
MOVL _—‘ TIMEOUT,= 
UCBSL_MF_TIMOUT(RS) ; Remember TIMEOUT spec in UCB. 


~ENDC 
BSBW NDOT_EXECUTOR 3; Call common NDT Executor subroutine. 
-WORD ERROR LABEL~.-2 ; Relative address of ERROR_LABEL. 
~ENDM EX N ND*_CMD 
SDEFINI TAT ; Transfer Action Table entry layout. 

SDEF TAT -HIt -BLKB ; Hardware Interrupt Code. 
TAT_SOFT_STAT mes ; Software status returned to us 


SDEF TAT-DEVDEPEND BLK 
T GS -BLKB 

SDEF TAT-SUBCODE_RUT .BLKL 

-VIELD TAT,0,<- 


; Flags that determine actions. 


i. 

, 3 

! ; Bits to set in UCBSL  DEVDEPEND#2, 

1 : Routine to deal with error subcodes. 


<ERRLOG :; If set then we perform error neCoRD 
<POSITION N. om : If set then we update UCBSL_REC 
<CO 3; If set then we return UCBSU F_BC in RO. 


U 
<PREVTM, MS, - If set then we update UCBSL_ MF ~PREVTM. 


> 
TAT_LENGTH=. 
SDEFEND TAT 


00CD000A 
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; TAT_ENTRY = macro to declare a Transfer Action Table entry. These 
: entries serve as a decision table which determines actions to 


oo 


take after executing a data transfer command. The first 


we return to the yeer skruhich we 8 to th 
word contains a bit mask which we OR nto Ay: lon” word of 
y L REVOEPEND when we get this AH Finally the last b te 
? it mask that determines certain actions to take. Bit 
det ned in this mask determine whether we ERROR LOG the a. 


ROOD NOUS AN OOOO UNE WIRD $$ 9 OD NAU EWN 0 OD NOAU EWN O OONOAU ES WN 
Sad 
So 
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; Code (HIC). The next word contains the ° sates status that 


SOooooooooo 
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43; whether we return the nf § count of bytes transferred to the user; 
te 5 and whether we update UCBSL_RECORD as a result of this HIC. 
23 
0 4 
0 +8 «MACRO TAT_LENTRY HIC,SOFTWARE_ STATUS 
000 34 DEVOEPEN D -ERRLOG, POSITION, COUNT, PREVTM, = 
4 29 SUBCODE NROT 
$09 26 -BYTE HIC ; Hardware Interrupt Code 
4 7 «WORD SOFTWARE_STATUS ; Software status to return to user. 
$090 55 IF NB DEVDEPEND 
8308 2$ «WORD DEVDEPEND@-16 
000 5 IFF 
0000 58 -WORD 0 
44 59 ~ENDC 
000 60 
0000 61 if IDENTICAL YES, <ERRLOG> 
0000 6¢ « «XX. .=TAT_M_ERRLOG 
0000 6 ~IFF 
9000 64 oXx..20 
0000 65 ENDC 
0000 66 IF — ICAL YES. <POSITION> 
0000 67 -=TAT_M_POSITION 
0000 68 wIFF 
0000 69 -YY..20 
0000 70 ~ENDC 
0000 71 IF IDENTICAL Ms <COUNT> 
0000 7 --22..=TAT_M_COUN 
0000 7 J 1FF 
0000 74 i 
0000 75 -ENDC 
0000 7 IF vat > ICAL YES, <PREVTM> 
0000 7 .»=TAT_M_PREVTM 
0000 78 ~IFF 
0000 79 .QQ..=0 
0000 80 ENDC 
0000 81 
000 8 -BYTE . Ratan ¥ SD ee 
000 8 IF NB SUBCODE_RUT 
000 84 -LONG SUBCODE “RUT- -TFSDDT 
0000 85 wIFF 
8 § -LONG 0 
~ENDC 
00 8 .ENDM 
000 9 
4 90 ; <a 
O60 4. 3; Expanded opcode macros - Branch word conditional psuedo opcodes. 
3 ot 
: $6 3; BWNEQ - Branch (word offset) not equal 
9 . 
98 -MACRO BWNEQ DEST,?L1 : 
0 99 BEQL u1 ; Branch around if NOT NEQ,. 


oa 
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44 400 BRw DEST ; Branch to destination if NEQ. 
401 L1: ; Around. 
0 4 ¢ ~ENDM BWNEQ 
a3 te 
00 405 : BWEQL = Branch (word offset) equal 
000 4 § 3 . 
000 4 
8p 408 -MACRO BWEQL DEST, 2L1 
0 409 BNEQ L1 ; Branch around if NOT EQL. 
00 410 BRW DEST : Branch to destination if EQL. 
4s 411 1: : Around. 
00 a16 ~ENDM ®BWEQL 
0000 41 
0000 414 ; 
0000 415 ; BWLSS - Branch (word offset) on less 
0000 rH 3 
0000 41 
0000 418 -MACRO BWLSS ODEST,?L1 
0000 419 BGEQ L1 ; Branch around if NOT LSS. 
0000 420 BRw DEST ; Branch to destination if LSS. 
0000 421 11: ; Around. 
0000 4 ¢ -ENDM BWLSS 
0000 4 
0000 424; 
0000 425 ; BWGEQ = Branch (word offset) greater than or equal 
0000 426; 
0000 427 
0000 428 ~MACRO BWGEQ DEST,?L1° 
0000 429 BLSS L1 : Branch around if NOT GEQ 
0000 430 BRW DEST : Branch to destination if GEQ. 
0000 ri L1: : Around. 
0000 4 ¢ -ENDM ®BWGEQ 
0000 43 
0000 434; - 
0000 435 ; BWBS - Branch (word offset) bit set. 
0000 $33 ; 
$38 -MACRO BWBS BIT, FIELD, DEST, ?L1 7 
439 BBC BIT, FIELD,L4 ; Branch around if bit NOT set. 
440 BRwW DEST ; Branch to destination if bit set. 
: ; Around. 
441 L1 A d 
$¢§ -ENDM ®8WBS 
44 


; BWBC - Branch (word offset) bit clear. 


CDOSOSOOSOOOOOOOOOOO 
SOOSCOSOSOSOOSOOSSOOSSO 
SOOOCSOOSOOSOOOOSOSOSOSO 
SOSOSSSSSOSOSOSOSSSOSSO 

re 

ae 

vi 


446 ; 

44 

448 -MACRO BWBC BIT, FIELD,DEST,?L1 

449 BBS ss BIT, FIELD, Lf ; Branch around if bit NOT clear. 
450 BRw DEST ; Branch to destination if bit clear. 
451 L1: ; Around. 

452 -ENDM BWBC 
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6 tee ~SBTTL TM78/TU78 MASSBUS REGISTER OFFSETS 
t2$ SDEFINI MF 
80 $28 SDEF MF_CS1 -BLKL 1 sDRIVE CONTROL REGISTER 
004 45 -VTELO MF_CS1,0,<=- ; DRIVE CONTROL REGISTER BIT DEFINITIONS 
004 460 <GO,,™>,- ; GO BIT 
9004 461 ct CObE »5>, - + FUNCTION CODE 
Bae 188 <RDY,,M>,- : 
eee tt a ee 
$006 466 <PSEL, ,M>,= ; 
0004 46 <DVA, ,M>,- 3; Device available 
0004 468 ,1>,7 3 
0004 470 <TRE, ,M>,= . 
Bope $2) <SC,,M>,- : 
0004 138 SDEF MF Is ~BLKL 1 s INTERRUPT STATUS REGISTER. 
0008 474 -VIELD MF_IS,0,<= : Interrupt status dit definitions. 
0008 475 <OTIC,6>,- ; Data transfer interrupt code. 
3h SE hematite, 
0008 478 <,1>,° ; Reserved bit. 
8088 rt 4 <bTFC,6>,- ; Data transfer failure code. 
0008 481 SDEF mF TC -BLKL 1 ; TAPE CONTROL REGISTER. 
000C ate -VIELD MF_TC,0,<- : Tape control bit definitions. 
000c 48 <CADADR,2>,- ; CMDADR specifies which tape unit. 
000 484 <RC,6,M>,- ; Record count. 
000Cc 485 <SC,4>,- 3; Skip count. 
000C 486 <FMt,3>,- : Format. 
445 re £4 ‘ <SER,,M>,- $ Suppress error repositioning. 
000C 489 SDEF MF _MR1 -BLKL 1 sort in att becletee REGISTER #1. 
0010 490 S$DEF MF"AB BLKL 1 ATTENTION BIT 
0014 491 SDEF MF _BC ~BLKL 1 :BYTE COUNT heGis fre 
0018 136 SDEF MF_DT -BLKL 1 DRIVE TYPE REGISTER 
001C 49 VIELD MF_DT,0,<= ; Drive type register field definitions 
001C 49% <DTN,9,M>,- : Drive type number. 
001C 495 <,1>.- ; Reserved bit. 
001C 496 ates ; Reserved bit 
01C 497 <OMB,,M>,- ; buat MASSBUS port {Setton, " set. 
01C rh <7CH,,M>,- ; 7-Channel tape (al wars © 
O1c 49 <MOH,,M>,- 3 pewing head (always 0). 
O1C 280 <TAP, ,M>,- : Tape drive (always 1) 
Bie 83 <NSA,,M>,=- : Not sector He eee oS (always 0). 
B) § SDEF nF dS -BLKL DRIVE STATUS REGISTER 
4 VIELD MF DS.0,<- ; Drive status register bit definitions. 
0 5 <,4> ; Reserved bits. 
0 $ “bse. cM>,- 3 Unit & going erase portion ef DSE cmd. 
HALE o>, - : s in maintenance mo 
$ < : mit available to both MASSBUS ports. 
0 <avalC >, : Unit available to this MASSBUS. 
<FPT,,M>,= ; Unit is file protected. 
0 10 U fil ted 
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TEDR IYER 1M7B/TU78 MASSBUS REGISTER OFFSETS “SE a Oo 
V04~ i 
<EOT,,M>,= “ e. 
1 > bee ya i Unit set for PE C1600 BPI) format. 
18 ShEG’ as, ; Rewind is in progress. 
14 ps Ede ; Unit on-line, tape is mounted. 
15 pT ta ; Unit is powered up. 
16 pe be aa ; Unit ready. 
ae ; UMBER REGISTER 
SN ‘ : /MAINTENANCE REGI 
054 i SDEF or ree ne 4 ‘DIAGNOSTICS /MAINTENANCE REGISTER #8: 
028 de) SDEF ca . 1 ;NON=DATA TRANSFER ATTENTION REGISTER. 
SDEF MF ENDTA "wp ; Non=data transfer field definitions. 
66 6 ; g VIELD MF eed + NDT interrupt code. 
0030 4 <N51C.6,>, ; Reserved bits. , 
0030 5 $5220" ; Attention address (unit #). 
0030 5 § <ATAD.2>.- ; NDT failure code. 
§35 nits NIT #0). 
. TRANSFER CMD REG. (U 
6030 ; 9 SDEF a tty MF_NDTO we ' ponders transfer command field defs. 
$084 34 3 <G “ads : Fone has code. 
034 23 <FCOBE.5>,~ ; Reserved bits. 
0034 338 pts i : Command count. 
bose ar . FER CMD REG. (UNIT #1). 
O03e 536 SDEF mr NDT MF _NDT1 wm ;  pondete tranater command field defs 
V Ve : rn c 
ait 37 £60, > gs : Funct ion code. 
0038 539 he Sgn ; Reserved bits. 
0038 re whe ; Command count. 
0038 oe j FER CMD REG. (UNIT #2). 
0038 568 SDEF Mr NDT2 el ap ce Rms A command field defs. 
003C 345 x <6 Thad ; Function code. 
003C 546 SFSODE.9>. : Reserved bits. 
903¢ ef <tent 8> - : Command count. 
Mist a FER CMD REG. (UNIT #3). 
O03¢ 356 SDEF mF NDT3 sBLKL 1 iMNondata transfer command field defs. 
0040 45 3 - ads : Function code. 
0040 38 <FCODE.5>,~ ; Reserved bits. 
0049 23 Sefze" a, Pm ; Command count. 
4 . . 
> : ADDRESS REGISTER. 
0040 357 sper AF_IA ‘pet {INTERNAL DATA. REGISTER, EE 
066 6228 SDEF =F ID _— : Internal data field definitions. 
098 535 -VTELD ie oe > Actual internal data to be sent. 
094 ef <HOLD. .M> = (Read-only) 
8 4 64 <CPE, A>. ~ : (Read only) 
48 565 pi ae : (Read only) 
094 6 <ACPE MD 5 ; 
04 6g <TMCLR,,.M>, 
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uit 1m78/1U78 DEVICE DEPENDENT UNIT CONTROL “-SEP-1984 88:98:43 DRIVER. SRCITFDRIVER.MAR; 1 . (1) 
0 oe -SBTTL TM78/TU78 DEVICE DEPENDENT UNIT CONTROL BLOCK OFFSETS 
0000000F g MAX_SUBSTACK_DEPTH=15 

3 7 SCEFINI UCB 

$00 8 $SVIELD UCB,0,<- ;DEVICE DEPENDENT STATUS BITS 

000 580 <MF REWIND, .M>,= : REWIND IN PROGRESS 

0000 81 <MF_POWER, ,M>,= ; Currently executing in POWERFAIL_TIMEOUT 
4 8 <MF_CNCLP, ,M>,= ; CANCEL I/0 pending. 

0000 8 <MF_REPOS, ,M>,= ; Tape needs repositioning. 

44 ee <MF_TMRDY, ,M>,=- 3 CLR has been issued; TMRDY pending 

0 5 <MF_ATIN, ,M>,= i a type fault has occurred; issue 

0000 286 - ; TMCLR at earliest moment. 

0000 58 <MF_UCBFREE, ,M>,=- ; uCcB Sey be used for ASYNCHRONOUS fork. 

0000 588 <MF _UCBBUSY, ,M>,=- ; UCB be ng used for ASYNCHRONOUS fork. 
0000 589 <MF-SOFT_ERR, ,M>,- : Pass SOFT ERROR flag to DEVICE_ERROR. | 
0000 590 <MF-EXSNS DONE, ,M>,= ; Extended sense already done. 
0000 591 <MF-OWNPCAN, ,M>,= 
0000 238 <MF_OWNSCHN, ,M>,- ; Bits whose value are only of interest 

0000 59 > ; to the routine that invokes EXTENDED 

0090 594 ; SENSE command. Since this command 

0000 595 3 requires ownership of the channels, 

0000 596 ; these bits indicate whether the 

0000 597 ; channels were owned prior to calling 

0000 598 3; the routine. Therefore the 

0000 599 ; MF_OWNPCHN bit set means that the 
0000 600 : oriaary (i.e. the TM78) channel was 
0000 601 ; owned by the caller of the routine 
0000 60 3; and the MF_OWNSCHN bit set means that 
0000 60 ; «othe gocondSry (i.e. MBA) channel was 
0000 604 ; owned. Previously owned channels are 
0000 605 3 not released prior to return. 
0000 606 3; NOTE- TM CLR resets TM78 and is only used | 
44 rts ; if a FAULT B or an MBA error has occurred | 
0000 609 ; NOTE - The UCBSM_MF_UCBFREE and UCBSM_MF_UCBBUSY bits in UCB$W_DEVSTS are 
0000 610 ; interpreted in conjunction with the UCBSM_BSY bit in UCBSW_STS. The 
0000 611; UCBFREE bit equal to 1 (i.e. set) implies that no one is ak Spal 
0000 oi¢ 3 exocut ing in the context of the UCB between STARTIO and FUNCTION_EXIT. 
0000 613; The bit is originally set (to 1) at system init time, reset upon entry 
0000 614; to STARTIO and then set again in FUNCTION_EXIT prior to REQCOM. When 
0000 615; set (to 1) it declares to the Interrupt routine that the Interrupt 

4 $16 3 routine CAN do an IOFORK and a call to ISSUE_TMCLR since the UCB is 

00 617 ; in a state that is guaranteed to not do another IOFORK on top of this 

000 918 : one. When UCBFREE is zero, it declares that an IOFORK may not be 

000 619; issued as neRronousty and the Interrupt routine must instead simply 

si 4 ? , : set the UCBSM.MF_ATT in the event of a ‘B’’ type fault attention. 

0000 6 § ; UCBSM_MF_UCBBUSY in UCBS$W_DEVSTS is turned on (to 1) by the Interrupt 

0000 625 ; routine when in servicing a 'B’' type fault, it finds UCBFREE set and 

0000 624 ; therefore decides to take over the fork block in the UCB by issuin 

000 625; an IOFORK. It sets UCBBUSY to warn a driver process entering STARTIO 

000 6 § ; of the situation. Such a driver process, upon finding the UCBBUSY bit 

000 627 ; on, would simply execute an RSB instruction. The 1/0 function will 

4 3 : be started Later when the TMCLR is resolved. 
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VO O00 1H78/TU78 DEVICE DEPENDENT UNIT CONTROL mies Yi $b: 95:33 DRIVER. SRCITFDRIVER.MAR; 1 . (1) 
0 6 
00000084 00 6 § -=UCBSK_LCL_TAPE_LENGTH 
BS $ 5 SDEF UCBSW_MF_CS1 -BLKW 1 Setup space for Control register. 
pee 6 § SDEF UCBSW_MF_T -BLKW 1 sSaved Tapedrive Control register. 
Ope 637 SDEF UCBSW_MF_TMPLTC .BLKW 1 Template Tapedrive Control register. 
OBA 638 SDEF UCBSB_MF_DENSITY 
000000BB QOOBA 639 6 1 Current DENSITY of dri $5 
0BB 640 : => 1600 BPI - 1 => 6250 BPI 
OBB 641 SDEF UCBSB_MF_RSTCNT .BLKB 1 ; Count of number of times this 
43 646 : 1/0 function has been restarted. 
OBC 644 SDEF UCBSW_MF_NDTCR .BLKW 1 ; Non-data transfer command word. 
OOBE 645 3; Scratch space where we build a 
OOBE 646 3; non-data transfer command and count. 
QOOBE 647 SDEF UCBSW_MF_MAX_REWIND 
000000C0 Boek 648 -BLKW 1 ; Maximum time that a rewind can take 
00C 649 ; for this unit before a timeout. 
00CO 650 SDEF UCBSL_MF_TIMOUT .BLKL 1 ; Number of seconds for TIMEOUT 
45 $2) 3 parameter to WFIKPCH macro. 
00C4 $38 SDEF UCBSL_MF_ORGPOS .BLKL 1 ; Original value of UCBSL_RECORD at 
00C8 654 3; start of current 1/0 operation. 
bore $23 : Used in POWERFAIL recovery. 
00C8 657 SDEF UCBSL_MF_PREVTM .BLKL 1 ; Position of previous TAPEMARK; used 
oocc 658 ; in forward SKIPFILE and SPACEFILE 
oocc 659 3; operations in detecting consecutive 
bore ro¢4 ; TAPEMARKS. 
oocc 666 SDEF UCBSL_MF_ORGPTM .BLKL 1 ; Original value of UCBSL_MF_PREVTM at 
0000 66 3; start of current 1/0 operation. 
it roe) ; Used in POWERFAIL recovery. 
00D0 666 SDEF UCBSL_MF_SVAPTE .BLKL 1 ; Virtual address of the System PTE for 
00D4 667 > _UCBSL_MF_EXSNS. 
0004 668 SDEF UCBSW_MF_BOFF -BLKW 1 ; Byte offset of UCBSL_MF_EXSNS in its page. | 
0006 66? SDEF UCBSW_MF_BCNT .BLKW 1 : Count of # of bytes T60) transferred 
0008 670 ; _by an EXTENDED SENSE command. 
00D8 671 SDEF UCBSQ_MF_TEMP .BLKL 2 3; Temporar space used to store UCBSL_SVAPTE | 
Bee R of6 3; and UCBSW_BOFF during EXTENDED SENSE. 
494 or SDEF UCBSL_MF_SUBSP .BLKL 1 3; SUBSTACK depth indicator (Stack ptr). 
OE4 676 SDEF UCBSL_MF _SUBSTACK : Space for SUBSTACK array. 
00000120 Og4 627 -BLKL MAX_SUBSTACK_DEPTH 
1 6 679 ; 
: ? 9 3; Space to save device registers for error logging. 
01 682 ° 
120 6 : SDEF UCBSL_MFMBA_CSR .BLKL 1 :Saved MBA Configuration register. 
124 684 SDEF UCBSL_MFMBA_CR .BLKL 1 :Saved MBA Control register. 
128 685 S$DEF UCBSL_MFMBA_SR_ .B 1 :Saved MBA Status req wr.  . 
12C 66 § SDEF UCBSL_MFMBA_VAR .BLKL 1 Saved MBA Virtual Address register. 
150 687 SDEF UCBSL_MFMBA_BCR .BLKL 1 Saved MBA Byte Count Register. 
134 688 SDEF UCBSL_MFMBA_F MAP 
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Vou~ 000 TM78/TU78 DEVICE DEPENDENT UNIT CONTROL $b 138 8:98:49 LORIVER. SREITEDRIVER.MAR: 1 - (1) 
00000138 0134 689 -BLKL 1 Saved MBA Final Map register. 
1 é 690 SDEF § UCBSL_MFMBA_PMAP 
0000013¢ : : o3) -BLKL 1 Saved MBA Previous Map register. 
1 4 $98 SOEF UCBSL_MF_CS1 -BLKL 1 ;Saved data transfer Control register. 
14 694 S$DEF UCBSL_MF_IS -BLKL 1 sSaved data transfer Interrupt status. 
144 695 SDEF UCBSL_MF_TC -BLKL 1 :Saved data transfer Tape control. 
148 $36 SDEF UCBSL_MF_MR1 mi F Saved Maintenance Register 1. 
136 697 SDEF UCBSL_MF_AB -BLKL 1 Saved Attention Bit. 
15 $28 SDEF UCBSL_MF _BC -BLKL 1 Saved data transfer Byte Count reg. 
154 9? SDEF UCBSL_MF_DT -BLKL 1 Saved Device Type register. 
$138 89 SDEF UCBSL_MF_DS -—BLKL 1 Saved Drive Status register. 
15C 701 SDEF UCBSL_MF_SN me «CF :Saved Serial Number register. 
319? 7 § SDEF Ue eel nF ARG -BLKL 1 saved Maintenance Register 2. 
164 703 SDEF UCBSL_MF_MR -BLKL 1 ;saved Maintenance Register 3. 
0168 704 SDEF UCBSL_MF_NDOTA .BLKL 1 :Saved Non-Data Transfer Attention reg. 
016C 705 SDEF UCBSL_MF_NDTO .BLKL 1 :Saved NDT command register drive 0. 
Bite oe SDEF UCBSL_MF_NDT1 .BLKL 1 :Saved NDT command register drive 1. 
174 707 SDEF UCBSL AF NOTE -BLKL 1 :Saved NDT command register drive ¢: 
0178 708 SDEF UCBSL_MF _NDT -BLKL 1 :Saved NDT command register drive 3. 
3443 4 SDEF UCBSL_MF_ID . 1 oe :Saved Internal Data register. 
00000044 3138 ay UCB_TM78REGS_LEN=.-UCBSL_MF_CS1 ; Length to store all TM78 registers. 
0180 ig SDEF UCBSL_MF_CMD -BLKL 1 Copy of currently active TM78 COMMAND 
0184 714 ; _(for this UCB) be it NDT or Transfer. 
0184 715 SDEF UCBSL_MF_NDTA_C .BLKL 1 ; Space to copy contents of UCBSL_MF_NDTA 
0188 716 ; immediately after wakeup from QF IRPCH 
0188 717 3; so that we can preserve a stable cop 
0188 718 ; of the attention data associated wit 
bigs Ay ; the interrupt. 
Bie os) SDEF UCBSL_MF_EXSNS .BLKL 15 :; Space for output of EXTENDED SENSE. 
000000A4 Bite 728 UCB_REGDUMP_LEN=.-UCBSL_MFMBA_CSR ; Length of data to copy to ERROR LOG. 
01C4 725 
000001C¢4 Bite 4 $ UCBSK_MF_LENGTH=. ; Length of a TU78 UCB. 
0104 728 SDEFEND UCB 
0000 750 
0000 731 ; Maximum rewind times for the units that can be on a TM78. For now these 
4 4 3 3 are only TU78's. 
000000 000 734 Tu78_MAX_REWIND=150 : (3600*12)/440 + slop factor. 
000002A 000 735 TU78_MAX_DSE=675 ; Approximately 4.5*TU78_MAX_REWIND 
00000200 0000 7 $ TU78_MAX_SPACE=525 ; In bizarre situations a tape could have huge 
0 7 ; physical records which could mean that the 
0 738 3 atire tape might contain less than 
0 739 ; $5 records so that the maximum spacing time 
00 740 ; must be the time to space the entire tape at 
00 741 s 125 IPS. Approx imately .5 * TU78_MAX_REWIND 
00000005 000 ee MAX_RESTARTIO=5 ; Maximum number of times to allow RESTARTIO to 
00 74 3; be attempted before giving up on the 1/0 
444 744 3 operation, 
00000000 0000 745 MFSK_DENSITY_1600=0 ; Value put in UCBSB_MF_DENSITY for 1600 BPI. 
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9000008) r, MFSK_DENSITY Pe ’ ie in U i MF i ead ay which_means 6250 BPI 
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; Put status info into MF 


t write PE (16 


F_WIM_GCR=7#2 ; Write GC 


; € 
F_ERG_GCR=15*2 
F_CLOSE_FILE_PE=16*2 


F_CLOSE_FILE_GCR=17*2 
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3; Non-data transfer hardware function codes. 


No-op 

Unload tape and interrupt immediately 

Rewind tape and interrupt after tape motion stops 
MF_DS and MF_SN registers 
NOTE= Status valid only while attention bit is set 


; Erase remainder of tape and rewind 


NOTE= croses at least 10 feet beyond EOT marker 
0 BPI) tape mark. TE= Recording format 
s ignored except when tape is at load point (BOT). 
It is s ecified by the low-order bit of code. 
(6250 BPI) tape mark. NOTE=- Recording format 
is ignored except when tape is at load point (BOT). 
It is specified by the low-order bit of code. 
Space forward record, stop if tape mark 
Space reverse record, stop if sage mark or BOT 


; Space forward file (to tape mar 
; Space reverse file (to tape mark) 
; Space forward either record or file 


Space reverse either record or file 

rase three inches of tape, set PE (1600). 

NOTE= Recording format is ignored except at BOT. 
It is specified by the low-order bit of code. 


; Erase three inches of tape, set GCR (6250) 


NOTE= Recording format is ignored except at BOT. 
it is specified by the low-order bit of code. 
Write 2 tape marks, space reverse 1, set PE. 
NOTE= Recording format is ignored except at BOT. 
It is specified by the low-order bit of code. 
Write 2 tape marks, space reverse 1, set GCR. 
NOTE= Recording format is ignored except at BOT. 
It is specified by the low-order bit of cade. 
Space forward until 2 tape marks, space reverse 1 


; Space forward to tape mark, stop if 2 successive 


tape marks (LEOT), then space reverse one tape mark. 
NOTE= Not to be used after any reverse operation, 
or the TM78 may skip over an LEOT located 
where direction was reversed. 


3; Data transfer hardware function codes 
F_WRITE_CHECK_FWD=20*2 


Write Check Forward. Tape drive reads a record in the 
forward direction while at the same time the MBA 
reads a buffer from memory and compares the buffer 
to the contents of the record read from tape. 


Write Check Reverse. Same as previous except the 
record is read in the reverse direction and the 
buffer contents are compared in the reverse 
direction also. 


; Write PE (1600 BPI) encoded records. -NOTE- The 


recording format is ignored unless the tape is posi- 
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30 ; HARDWARE INTERRUPT CODES 
§ : Interrupt codes that may result from both data transfer operations and 
t : non-data transfer operations. 
5 oO 
00001 HIC_DONE=1 ; Operation completed as expected 
° 00908 5 HICTTRSD 3 Unexpected tape mark ‘“ 
000 8 HIC_BOT=3 3 Unexpected beginning of tape 
0000004 0 HIC_EOT=4 ; Tape is positioned beyond end of tape marker (write) 
Bo ORNS 3 8 9 HIC_FPT=8 ; Write was attempted on a file protected tape 
HIC_NOT_RDY=9 ; TU is_on Line but tape is roulnding or loading, or 
Boh ¢ ; a OSE or rewind is being performed from the other | 
; or 
4 $4454 46 B88 4 HIC_NOT_AVAIL=10 3 6 is not switched to this port, but is on-line 
0000008 0 5 HIC_OFF_LINE=11 ; TU is not switched on-line with a tape loaded 
0000000C 0000 $ HIC_NON_EX=12 ; TU does not exist or power is off | 
0000000D 0000 HIC_NOT_CAPABLE=13 ; 1. Incorrect I.D. burst 
000 $s ; _2. No record or tape mark detected 
00000017 44 9 HIC_BAD_TAPE=23 : Tape position is lost 
00000018 0000 40 HIC_TM_FAULT_A=24 : Software (microcode) or TM78 hardware is broken - 
0000 841 ; _see failure code for details 
00000019 0006 He) HIC_TU_FAULT_A=25 ; Tape unit hardware is broken - see failure code 
000 844 ; | 
4448 et? 3; Interrupt codes which result only from data transfer operations. 
0000 847 ° 
00000010 0000 one HIC_LONG_REC=16 ; Last record read was longer than BYTE COUNT value, | 
0000 49 ; but was otherwise correctly read. The tape position 
0000 850 : is after the tong record. BYTE COUNT is set to actual 
0000 B3) ; record length. RECORD COUNT is set to number of 
4 $2¢ ; records left. 
00000011 000 54 HIC_SHORT_REC=17 ; Last record read was shorter than initial BYTE COUNT 
000 55 ; value, but is otherwise correctly in posety. Tape 
00 56 3 position is after the short record. BYTE COUNT is 
00 57 ; set to the actual record length. RECORD COUNT is 
4 $28 3 set to the number of records left. 
00000012 B08 60 HIC_RETRY=18 ; Error, the initial operation should be repeated. 
00 61 ; Tape positioned for retry. BYTE COUNT is set to 
88 $6 ; its initial value. RECORD COUNT is set to the number 
3 o7 : of records left. 
00000013 09 65 HIC_READ_OPP=19 ; Read error, The initial read should be performed in | 
06 ; the opposite direction. Tape is positioned after the 
00 6 ; bad record. BYTE COUNT is set to number « bytes to | 
rt: ; be read. RECORD COUNT is set to number of records left. | 
00000014 5 HIC_UNREADABLE=20 ; Read retries have failed to read the record. Tape is 
71 3: positioned after the record. TE COUNT is set to 
8 ; the number of bytes transfered. RECORD COUNT is set 
? ; the number of records left. 
00000015 75 HIC_ERROR=21 ; An error has occurred which requires a retry, but SER 
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after the bad record. BYT UNT is o the number 
RECORD COUNT Ay +m, to the number 


P 
age 49 | 
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of pytes transfered. 
of records left. 


; A write error pes occurred perens the EOT marker, and 

; SER is set. Tape is positioned after the bad record. 
; BYTE COUNT is set to the number of records transferred. 
; RECORD COUNT is set to the number of records left. 


result only from non-data transfer operations. 


: Unexpected logical EOT (2 tape marks) 

; No-op completed 

: pig > Ps progress, done interrupt will follow when 
3} 8 


; A tape unit has come on-line with a tape loaded, or 

; a rewind has finished on the other port for the 

: accessed tape unit. 

; The TM78 is broken. 

: the rope unit is broken. 

; A MASSBUS error has occurred. 

; Failure code means drive is positioned at or beynd EOT 


7 
- 
i 
00000016 § 5 HIC_EOT_ERROR=22 
00 
B33 He 
8 4 
0 85 
0 § 3 
8 ; Interrupt codes which 
000 He 
00000005 44 90 WIC LEQTES 
4444 00 91 HIC_NOP=6 
0000000 000 3 HIC_REWINDING=7 
000 9 
000 94 
000 95 ; 
000 9$ 3; ™M78 initiated interrupt codes. 
000 97 ; 
000 89 
OO000000F 0000 899 HIC_ON_LINE=15 
000 900 
000 901 
QO000001A 0000 902 HIC_TM_FAULT_B=26 
00000018 0000 903 HIC_TU_FAULT_B=27 
0000001C 0000 904 HIC_MB_FAULT=28 
000 905 HFC_EOT=14 
00 ane 
0c 
0 
00 
00 
00 
0 
0 
0 
0 
0 
0 
0 


-o 


Se Pe ee Sal ee ea 


TFDRIVER - TM78/TU78 MAGTAPE DRIVER 16-SEP-1984 AX/VMS Macro Vv04-00 Page 21 
V04- Hardware function and interrupt codes erg att yi 88: 0: }3 DRIVER. SRC e4 FDRIVER.MAR; 1 ° (1) 
0; 
09 : 1 : LOCAL DATA 
000 9 : : DRIVER PROLOGUE TABLE 
a aS 
000 9 $ DPTAB :DEFINE DRIVER PROLOGUE TABLE 
000 9 END=TF_E sEND OF DRIVER 
000 928 FLAGS=OPTSA _SUBCNTRL,= Hyd Lat SUBCONTROLLER 
000 929 ADAPTER=MBA PTER TYPE 
000 930 UCBS IZE=UCB&K _MF _LENGTH, = i B SIZE 
99 931 MAXUNITS=4 1 eh iMi TED TO 4 TU78'S 
9 9 : NAME = TFORIVER R NAME 
00 9 DPT_STORE INIT Cont ROL BLOCK INIT VALUES 
005 934 DPT-STORE DDB, DDBSL -ACPO, a conse ;DEFAULT ACP NAME 
OO3F 935 DPT“STORE UCB.UCBSB_F ; FORK’ IPL 
004 936 DPT STORE UCB, UCBSL ~DEVERAR. L.- :DEVICE CHARACTERISTICS 
0043 «93 <DEVSM_FOD- : FILES ORIENTED 
004 938 'DEVSM-DIR= + DIRECTORY STRUCTURED 
0043 939 'DEVSM_AVL- ; AVAILABLE 
0043 940 i DEVSM~ELG- ; ERROR LOGGING ENABLED 
0043 9941 i DEVS$M~IDV- : INPUT DEVICE 
0043 94 i DEVSM~ODV- : OUTPUT DEV ite 
0043 94 iDEVSH_SDI- : SINGLE DIR ECTORY DEVICE 
0043 944 ‘DEVS ; SEQUENTIAL DEV 
004A 945 DPT_STORE UCe cocest -DEVCHAR2,L.-; DEVICE CHARACTERISTICS 
004A 946 <DEVSM_NNM>~ ; PREFIX NAME WITH ‘‘node$"’ 
0051 947 DPT_STORE UCB, "ocese DEVCLASS,B,DC$ TAPE ;DEVICE CLASS 
0055 948 DPT-STORE UCB UCBSW_DEVBUFSIZ.W. 2008 DEF AU AULT BUFFER SIZE 
005A 949 DPT-STORE UCB,UCBS$L_DEVDEPEND ,W caxacds DEFAULT TAPE PARAMETERS 
005F 950 DPT-STORE UCB,UCBSB_ ~DIPL Bee] * sDEVICE iPL 
0063 951 DPT_STORE UCB, /UCBSB “Oe ise: A Error retry count 
0067 826 DPT_STORE UCB,UCBSB_ ERTMAX,B,127; Maximum error re 
0068 95 DPT“STORE REINIT “CONTROL BLOCK RE- IN T VALUES 
0068 954 DPT“STORE CRB,CRBSL_INTD+4,D,TFSINT ; INTERRUPT SERVICE ROUTINE ADDRESS 
0070 955 DPT-STORE CRB{CRBSL-INTDSVE CSL. INIT inf ,1M78_INIT ; CONTROLLER INIT 
0075 956 DPT-STORE CRB,CRBSL_INTD+VECSL— UNIT Nifeb TM78_TXXX_INIT ;UNIT INIT 
007A «=: 957 DPT-STORE DDB, ODBSL-DDT.D, TFSDDBT ; NY AODRESS 
007F 958 DP RE EN : 
00000001 0000 959 -MDELETE DPT_STORE 
0000 960 
0000 961 ; 
0009 968 + DRIVER DISPATCH TABLE 
964 ° 
000 965 DDTAB. TF, = :DRIVER DISPATCH TABLE 
900 966 TF_STARTIO,- :START 1/0 OPERATION 
000 9% TF-UNSOLNT,- SUNSOLICITED INTERRUPT 
000 968 TF FUNCTABLE,- SFUNCTION DECISION TAB 
900 969 TF-CANCELIO,- :CANCEL 1/0 ENTRY POINT 
6 00 970 TF -REGDUMP, = [REGISTER DUMP ROUTINE 
000 971 <<0CB_REGDUMP_LEN>+<<3+541>#4>>,- :DIAGNOST Ic BUFFER SIZE 
376 <<UCB_REGDUMP_LEN>+<1#4>+<EMBSL “Dv _REGSAV>> TERROR BUFFER SIZE 
0 974 ; 
4 39 : TM78 DRIVE TYPE DESCRIPTOR TABLE 
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77 
78 TF_DTDESC: : 
0041 $78 ‘yore ots 78 ;TU78 125 IPS 
00009008 4 2 1 TF -DIDESCLENS. ooTF "Sroes :LENGTH OF OF DRIVE TYPE DESCRIPTOR 
00000040 B28 o88 -BLKB TF_DTDESCLEN 7 SPARE pRive TYPE SLOT 
04 985 ; 
Se 2 § ; Format code translation table 
Bpe8 +t ; Lt fol loving table relates software defined tape formats to 
04 989 ; 8 specific codes used to realize these formats. The oe 
0040 990 ; we Be. 16 b byt es, one for each of the possible values of t 
0040 991 ; 4 bit field which spec ifies the software format (MT$M FORMAT). 
0040 838 3 The contents of each byte of the table is the respective code 
Boee 993 ; to load into the 1M78 register. 
040 994; 
0040 995 
0040 996 ASSUME MTSS_FORMAT EQ 4 3; Assume a 4 bit field. 
0040 997 ASSUME MTSK-DEFAULT E€Q 0 ; Assume values defined by STARDEF .MDL 
0040 998 ASSUME MTSK_NORMAL11 EQ 1g 
0040 999 ASSUME MTSK_CORDMP11 EQ 1 
pee 1909 ASSUME MTSKINORMAL15 EQ 14 
00000000 0040 1308 MF SK_FORMAT ~NORMAL 1}°9 : al code to specify normal 11 tape format. 
00000001 0040 1003 MFSK_FORMAT_ 15=1 ; ™M78 code to specify normal 15 tape format. 
00000002 0040 1004 MFSK_FORMAT TICORPATTBCE 10=2 ; T™M78 code to specify PDP 10 tape format. 
00000003 0040 1005 MFSK_FORMAT_COREDUMP_10= 3; T™M78 code to specify pep 10 coreduap, fo 
00000004 0040 1006 MFSK_FORMAT_HI DEN PCOMPAT. 10=4 ; TM78 code to specify h nigh coensity P P 10” Telent. 
00000005 0040 1007 MFSK_FORMAT_IMA ; ™M78 code to specify IMAGE tape erect, 
00000006 9h 44: PORAAT TALES DENS _DUMP_10=6 ; TM78 code to specify high density PDP 10 dump form. 
00 0040 1010 -BYTE MFSK_FORMAT_NORMAL_11 ; Defaults to NORMAL11. 
00 0041 1011 -BYTE MFSK_FORMAT_NORMAL_11 ; Illegal value defaults to NORMAL11. 
00 R266 ig -BYTE MFSK_FORMAT_NORMAL_11 ; Illegal velue defaults to NORMAL11. 
00 0043 101 ~BYTE MFSK_FORMAT_NORMAL_11 ; Illegal value defaults to NORMAL11. 
00 0044 1014 BYTE  MFSK_FORMAT_NORMAL_11 ; Illegal value defaults to NORMAL11. 
00 0045 ISt2 ~BYTE MFSK_FORMAT_NORMAL_11 ; Illegal value defaults to NORMAL11. 
00 0046 1016 ~BYTE MFSK_FORMAT_NORMAL_11 ; Illegal value defaults to NORMAL11. 
00 0047 1017 -BYTE MFSK_FORMAT_NORMAL_11 ; Illegal value defaults to NORMAL11. 
00 0048 1018 ~-BYTE MFSK_FORMAT_NORMAL_11 ; Illegal value defaults to NORMAL11. 
00 0049 1019 -BYTE MFSK_FORMAT_NORMAL_11 ; Illegal value defaults to NORMAL11. 
00 8 GA 18 0 -BYTE MESK_FORMAT_NORMAL_11 ; Illegal value defaults to NORMAL11. 
00 4B 1021 -BYT MFSK_FORMAT_NORMAL_11 ; i\tegat value defaults to NORMAL11. 
00 004C 103¢ .BYTE MFSKTFORMAT-NORMAL-11 ; NORMAL11. 
05 0040 10 -BYTE MFSK_FORMAT_IMAG 3 CORE -DUMP11 - IMAGE 11 
01 Q04E 1024 -BYTE MFSK_FORMAT_NORMAL_15 ; NORMAL15 
00 O04F 1025 -BYT MFSK-FORMAT_NORMAL_11 ; i kegat value defaults to NORMAL11. 
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F oF TROLS 


UNCTAB ,= 
rf 


FUNCTAB ,- 
< 


NLOAD, = 
Eaipeecom. - 


DRV 
READPRESET. - 


REA 
WRI TEMARK ,~ 


DSE,- 
AVAILABLE, - 
READLBLK 
URITELBLK, - 
SENSEMODE ,~ 
MOD - 


£wmevnwwn 


E 
E 
E 
« 
K 
R 
E 
R 
AC 
AC 
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D 
D 
E 
l 
0 
B 
V 
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N 
E 
E 
ELETE 
Y 
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UNLOAD, = 
SPACERECORD, - 
AVAILABLE, - 
RECAL,- 
DRVCLR,- 
READPRESET,= 
ACKACK,= 
ERASE TAPE. 


iat pane - 
SETCHAR 
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P AND IORS —_ DIRECTORY ENTRY 

“AND/oR¢ CREATE DIRECTORY ENTRY 
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SPACE RECORDS 
: AVAILABLE en tA rl CLEAR VALID) 
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05 1084 SENSEMODE,- :SENSE MODE 
1085 SETMODE,- [SET MODE 
05 1 6 REWIND, - SREWIND 
58 1 REWINDOFF ,- ‘REWIND AND UNLOAD 
058 1088 SKIPRECORD,= ‘SKIP RECORDS 
05 1089 SKIPFILE,= :SKIP FILES 
058 1090 WRITEOF,- ‘WRITE END OF FILE 
058 1091 ACCESS, - TACCESS FILE AND/OR FIND DIRECTORY ENTRY 
005 109¢ ACPCONTROL, = ‘ACP CONTROL FUNCTION 
005 109 CREATE,- TCREATE FILE AND/OR CREATE DIRECTORY ENTRY 
058 109% DEACCESS,-= SDEACCESS FILE 
005 1095 DELETE,- [DELETE FILE AND/OR DIRECTORY ENTRY 
5 1096 MODIFY. ‘MODIFY FILE ATTRIBUTES 
0058 109 MOUNT> [MOUNT VOLUME 
0060 1098 FUNCTAB +ACPSREADBLK, - ‘READ FUNCTIONS 
0060 1099 <READLBLK,- TREAD LOGICAL BLOCK FORWARD 
0060 1100 READPBLK.= TREAD PHYSICAL BLOCK FORWARD 
0060 1101 READVBLK> SREAD VIRTUAL BLOCK 
006C 1108 FUNCTAB tACPSURITEBLK, ~ tWRITE FUNCTIONS 
006C 110 <WRITECHECK, = [WRITE CHECK FORWARD 
006C 1104 WRITELBLK,- SWRITE LOGICAL BLOCK 
006C 1105 WRITEPBLK [WRITE PHYSICAL BLOCK 
006C 1106 WRITEVBLK “WRITE VIRTUAL BLO | 
0078 1107 FUNCTAB sACPSACCESS <ACCESS,CREATE> ;ACCESS AND CREATE FILE OR DIRECTORY | 
0084 1108 FUNCTAB tACPSDEACCE Ess, <DEACCESS> ;DEACCESS FILE 
0090 1109 FUNCTAB +ACPSMODIFY : 
0090 1110 <ACPCONTROL .- SACP CONTROL FUNCTION 
0090 1111 DELETE. [DELETE FILE OR DIRECTORY ENTRY 
0090 1118 ODIFY [MODIFY FILE ATTRIBUTES 
009C 111 FUNCTAB +ACPSHOUNT, <MOUNT> [MOUNT VOLUME 
OOAS 1114 FUNCTAB tHTSCHECK ACCESS, - SMAGTAPE CHECK ACCESS FUNCTIONS 
OOAB 1115 <ERASE TAPE, = ERASE TA PE | 
OOA8 1116 WRITEMARK.~ [WRITE TAPE MARK | 
OOA8 1117 TERASE REST oot TAPE & REWIND **NEW FUNCTION | 
OOA8 1118 WI fEOF ;WRITE END OF FILE | 
00B4 1119 FUNCTAB sEXESZEROPARN, - ZERO PARAMETER FUNCTIONS 
00B4 1120 NOP NO OPERA TION 
00B4 1181 “UNLOAD. [UNLOAD VOLUME 
00B4 11 é RECAL,- :RECALIBRATE (REWIND) 
00B4 118 REWIND, = TREW | 
00B4 1124 REWINDOFF, - eREWIND AND SET OFFLINE 
00B4 1125 DRVCLR [DRIVE CLEAR 
00B4 1126 READPRESET, - [READ IN PRESET 
0B4 1127 PACKA [PACK ACKNOWLEDGE 
0B4 1128 ERASE TAGE, - TERASE 
00B4 1129 SENSECHAR,= : SENSE TAPE CHARACTERISTICS 
00B4 1130 SENSEMODE .- [SENSE TAPE MODE 
00B4 1131 WRITERARK. - [WRITE TAPE MARK 
0B4 11 é DSE,=- ZERASE REST OF TAPE & REWIND **NEW FUNCTION 
0B4 11 AVAILABLE, - AVAILABLE (REWIND/NOWAIT CLEAR VALID) 
0084 1134 WRITEOF> CWRITE END OF FILE 
0cO 1135 FUNCTAB +EXESONEPARM, - TONE PARAMETER FUNCTIONS 
0¢ 11 6 <SPACERECORD.- [SPACE RECORDS 
CO 11 ILE [SPACE FILES 
6 CO 11 : IPRECORD [SKIP RECORDS 
co 11 at tprices [SKIP FILES 
00CC 1140 FUNCTAB +EXE$SETMODE,- [SET TAPE CHARACTERISTICS 
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4 11¢e mn ~SBTTL CANCEL 1/0 ON CHANNEL 
p 1146 ; TF_CANCELIO = CANCEL 1/0 ON CHANNEL 
0D 1148 : THIS ROUTINE IS CALLED WHEN THE LAST CHANNEL ASSIGNED TO A DEVICE IS DEASSIGNED, 
D8 1149 ; THE DEVICE IS DEALLOCATED, AND WHEN THE CANCEL I/0 ON CHANNEL SYSTEM SERVICE IS 
4 1181 3; EXECUTED. 
Oo§ 1136 > INPUTS: 
OD 118 ; R2 = NEGATIVE CHANNEL NUMBER. 
30 1122 ; RS = ADDRESS OF CURRENT 1/0 REQUEST PACKET. 
D 11 § ; R4 = CURRENT PROCESS PCB ADDRESS. 
00D8 1157 ; RS = DEVICE UCB ADDRESS. 
0008 1158 ; 
Bn08 1123 3 OUTPUTS: 
0008 1161 ; IF THE DEVICE IS CURRENTLY BUSY, DOING A REWIND, AND IN A WAITFOR INTERRUPT | 
0008 1306 ; STATE, THEN THE REWIND FUNCTION IS CANCELLED. | 
Oops 164 
00D8 1165 TF_CANCELIO: ;CANCEL I/0 ON CHANNEL 
seated” i$ Bp08 1196 aoe S ececencsL se ;TEST IF FUNCTION SHOULD BE CANCELLED 
4E 64 AS 44 1168 UCBSW_STS(R )°30$ :1F CLR, NO CANCEL PENDING 
O0E 1189 DSBINT [DISABLE INTERRUPTS 
01 €1 QOE9 1170 BBC #UCBSV_MF _POWER,- ; See if cyrrensiy repositioning tape 
10 68 AS O0EB 1171 UCBSW_BEVSTS(RSS ,5$ ; due to POWERFAIL. If branch around 
04 a8 OOEE 11% BISW  #UCBSA_MF CNCLP,- : 1f $0, set CANCEL PENDING flag on. 
68 AS OOFO 117 UCB$W_BEVSTS(RSS ; This bit is needed only if the driver | 
OOF2 1174 $ thread in POWERFAIL is currenthy 
OOF2 1175 ; not waiting for an interrupt. That 
OOF2 1176 ; would imply that the driver thread 
OOF2 1177 ; is on a resource wait queue and 
OOF2 1178 ; would have to abort the operation 
Boe aE ; = itself. | 
03 B83 OOF2 1181 BITW #UCBSM_INT!UCBSM_TIM,- 
64 AS OOF4 1188 UCBSW_STS(R5) ; Interrupt or timeout expected? 
36 «613 «OOF6 «6118 BEQL 20$ : If NOT, branch around and Let CANCEL 
OOF8 1184 ; PENDING flag advise repositioning 
ste HH 3 thread of the need to ABORT operation. 
06 AA bere 1187 BICW #UCBSM_MF POWER! UCBSM_MF_CNCLP,- Z 
68 A FA 11 3 UCB$W_BEVSTS(R5) 3; Here we are awaiting interrupt; so 
Boe i 3 : we can safely kill the driver thread. 
19 «#11 bore 113) $$ BRB 15$ ; Branch around. 
07. «(91 OF 1198 : CMPB #F REWIND!GO Biye« ; Was last command executed a REWIND 
0180 C5 100 1194 CBSL_MF_CMDTR ) 
0c 13° 01 1195 BEQL 0$ s1F EQL YES 
oe 91 1 ; 1338 CMPB #F DSE!GO BIT,- ; Or was it a DSE (ERASE REST OF TAPE 
0180 Ts 107 119 a. CBSL_MF_CHD(RS) ; AND REWIND) command? 
3 es. 
09 E1 010C 1199 BBC #UCBSV_MF_REWIND,- : Isa REWIND in progress holding up 
1D 68 A 10E 1200 UCB$W_BEVSTS(RS) ,20$ 3; current IRP? If NOT, branch. 
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v04- CANCEL 1/0 ON CHANNEL 
0 B3 0111 1201 108: BITW 
64 A 113 (1 § 
1 13. 0115 #1 BEQL 
117 1204 158: 
03 AA 0117 1205 BICwW 
64 A 119 «1 § 
01 ag O118 1 BISW 
68 AS 11D 1208 
11F 1209 SETIPL 
C 4 3 1210 MOVZWL 
1 § 1211 PUSHL 
0 81 1 1 BSBwW 
128 121 POPL 
QI2E 1214 
0131 1215 
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U 
UCBS$B-FIPL 
#SS$_ ABORT, RO 


R 
STSXIT 
R4 
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iW iy ‘y*! OR TIMEOUT EXPECTED? 


;CLEAR INTERRUPT AND TIMEOUT EXPECTED 


:SET nevine IN PROGRESS 
LOWER ie FORK LEVEL 

SET ABORT STA TUS 

SAVE eb ays Fd PCB ADDRESS 

;RESTORE CURRENT PROCESS PCB ADDRESS 

;LOWER TO FORK LEVEL 
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START 1/0 OPERATION (and RESTARTIO) -SEP-1984 DRIVER SRE hia DRIVER.MAR; 1 (1) 
! ! i -SBTTL START 1/0 OPERATION (and RESTARTIO) 
} : 19 : TF_STARTIO = START 1/0 OPERATION ON DEVICE UNIT 
} } 1 : THIS ENTRY POINT IS ENTERED TO START AN I/0 OPERATION ON A DEVICE UNIT. 
: INPUTS: 
132 1225 : R3 = ADDRESS OF 1/0 PACKET. 
! ! § ; R5 = UCB ADDRESS OF DEVICE UNIT. 
: t OUTPUTS: 
1 1250 : FUNCTION DEPENDENT PARAMETERS se STORED IN THE DEVICE UCB, THE ERROR 
01 1231 ; RETRY COUNT IS RESET, AND THE FUNCTION IS EXECUTED. AT FUNCTION COMPLETION 
01 1 ¢ $ THE OPERATION IS TERMINATED THROUGH REQUEST COMPLET E. 
b135 1534 ° 
01 1235 ~ENABLE LSB 
ae 1236 TF_RESTARTIO: ; Come here to setup registers to 
01 1 $ 3 RESTART the current I/0 operation. 
00BB CS) «(96 —Cs«*0132 = =—«1238 INCB UCBSB_MF_RSTCNT(RS) : Renenber _# times restarted. 
53 58 AS D0 0136 1239 MOVL UCBSL~ IRP(RS) ,R3 : => IRP. 
ec AS 7D 013A 1240 MOV  =IRPSL“SVAPTE(R3),- : lattial ize UCB fields 
8 AS 0130 1241 UCBSL_SVAPTE(RS) 
05 91 OF 1 g CMPB #MAX_RESTARTIO,- 3 Prevent endless loop at fork level 
00BB C5 0141 124 UCBSB_MF_RSTCNT(RS) : from hangi ng sy stem. 
OC 18 0144 1244 BGEQ 10 3; GEQ implies that we may try again. 
50 0054 8F 3 0146 1245 MOVZWL #SS$_CTRLERR,RO 3; Else indicate controller problem. 
1244 31 0148 46 BRW FUNCTION_EXIT : And terminate. 
O146E 1248 TF_STARTIO: ;START I/0 OPERATION 
0088 C5 94 0188 : $3 10$ CLRB UCBSB_MF _RSTCNT(RS5) 3; Clear RESTARTIO count. 
0040 8F AA 0152 1251 ; BICW #UCBSM_MF VCOr REE. - 3 Indicate that UCB FORK block cannot 
68 AS 0156 1 36 UCBSW 3 ySTS : be used asynchronously for now. 
7 ~©€1 «0158 125 BBC #uC Jeabus - ; If UCB FORK block NOT currently in use 
01 68 AS 015A 1254 MUCOSD Rr UEEBUSY = 3 _then branch around to continue. 
05 biae ! 32 208 RSB 3; If FORK block in use, return to caller 
OOE4 C5 9E O18 1 25 ; MOVAB UCBSL_MF ~SUBSTACK IRS). -; baitiol tee SUBSTACK pointer to base 
OOEO C5 D169 1258 UCBSL-MF- etait (R5) 3 SUBSTACK array. 
05 €1 0165 1259 BBC #ucest_M 3 ait t get lsplies we must CLEAR the 
09 68_A5 167 1260 UCBSW_ BEVStSinS), 308 ; M78. Clear implies continue. 
03.56 38 180 i 83 Bes Roe : gS yp thnk ™78 sheer ing 
121F 5 i ' é§ 30s BRW FUNCT ION_ EXIT : If Bg ote B *t reset TM78, exit ‘ 
4 €1 0173 1265 | C #UCBSV_MF_TMRDY,- : Bit et implies that we must await 
03 68 8 . te 66 - on ~DEVSTS(RSS, 40$ 5 n78 coming ready, Clear implies AOK. 
1680 30 17 ' ti 408 BSBW WAIT_T 3 uote for TM78 to come READY. 
178 1269 | MOVW  IRPS$W_FUNC(R3),- 
05a ra} +s 17e 1 % HeBSUCEUNE CRS) ; Save function code and modifiers. 
09st Ce 90 183 ! 4 MOVB nite ERTENTIRS) 3 Copy nen Ler retry count to error 
: ry 
53 BB 0188 1 re PUSHR #*M<R3,R 3 Save Loctveaie destroyed by MOVCS. 
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von 008 START 1/0 OPERATION (and RESTARTIO) g- Sern 19 4 90:08:13 YORIVER. SREITFDRIVER-MAR: 1 . (1). 
OOAG BF OO FE AF QO 2c 198 1274 MOVCS #0,.,#0,#UCB_REGDUMP_LEN,=- 
0120 ¢ 192 1275 UChSC_MFMBA_CSR(R5) : Clear out Register Dump area in UCB. 
A 19 ! 4 POPR #*M<R3,R5> ; Restore input registers. 
0200 8F AA 0197 127 BICW #UCBSM_MF_EXSNS DONE,- ; Clear bit so as to allow EXTENDED 
88 AS 198 1 8 UCBSW BevSieuns? 3 _SENSE to proceed. 
AA 019D 1280 BICW #<MTSA_BOT!- ; Clear beginning of tape and, 
19E 1281 EOF !- ; End of File and 
19— 1 ¢ MTSM_EOT>@-16,- : End of Tape 
46 AS) 07 1 1 UCBS\ DEVDEPEND#2(R5) 
0 1 cE 1A1 1284 MNEGL #1,R ; Prepare to initialize yCest MF _ORGPOS 
1 2 cf 1A4 1285 MNEGL #2,R1 : and UCBSL_MF_ORGPTM with the values 
E1 O1A7 1 : BC #uCBSV_VALID,- ; in UCBSL_RECORD and UCBSL_MF_PREVTM. 
OA 64 A 1A9 1 UCBSW_STS(R55 ,50$ : However 1f invalid, leave them set to 
1AC 1288 3: _-1 and <2 respectively. 
50 0080 C5 00 BiAt 1289 MOVL UCBSL_RECORD(RS5) ,RO ; Pickup original position in volume. 
51 00C8 C5 00 0181 1290 MOVL § UCBSL“MF_PREVTM(R5),R1 : Also position of Last TAPEMARK. 
00c46 ¢5) = 50~—s«éOO gies 1291 508: MOVL RO,UCBSL-MF_ORGPOS(R5) ; Remember original position and 
oocc c5 51 dO B88 : 38 MOVL R1,UCBSL_MF_ORGPTM(R5) ; original previous TAPEMARK. 
08 €0 OIC 1294 BBS #IRPS$V_PHYSIO,- 
OD 2A A3 01C 1295 IRP$W_STS(R3) ,60$ ;1F SET, PHYSICAL I/0 FUNCTION 
0B €0 O1C5 1296 BBS #UCBS9_VALID,- 
08 64 AS 01C? 1297 UCB$W_STS(RS5S ,60$ ;IF SET, VOLUME SOFTWARE VALID 
50 0254 8F 3C OICA 1298 MOVZWL #SS$_JOLINV,RO ;SET VOLUME INVALID STATUS 
11¢0 §631—«OO1CF 1¢99 BRW FUNCTION_EXIT ; 
8108 1300 60$: 
00 EF 0O1D2 1301 EXTZV M#IRPSV_FCODE,- ; Extract 1/0 function code and 
3 0104 1336 #IRPS$S_FCODE,- ; place code into a register that 
54 20 A 01D5 130 IRP$W_FUNC(RS) .R4 : will survive an IOFORK. 
01D8 1304 
01D8 1305 
53 24 A5 DO 0108 1306 MOVL UCBSL_CRB(R5) ,R3 ; R3=>TM78-CRB. 
01DC 130 ASSUME IDBSL_CSR 
53 2c B83 00 3433 ; 38 MOVL @aCRBSC_INTD+VEC$L_IDB(R3) ,R3 3; R3=>TM78-CSR. 
O1EO 1310; : 
334 ! 1) 3 Here we wait if an unfinished REWIND is in progress. 
O1ED 1 i 
1E0 1314 70$: 
QO1EO0 1315 DSBINT : Block interrupts 
Bee ! 16 PRIOR_TEST_TMRDY ; Assure that 1M78 ready. 
05 €0 Ole 1 3 BBS #UCBSV_POWER,=- 
27 64 AS 1F1 (131 UCBSW_STS(RS55 ,80$ ; Branch if there has been a POWERFAIL 
E1 O1F4 1320 BBC #UCBSO_MF_REWIND,- : Branch around WAIT if NO REWIND in 
2F 68 AS b1Fg 1321 prose BGySTS(R5) 100$ ; progress. 
179 «1 : WFIKPCH 90$,#TU78_MAX_DSE : Wait for REWIND to finish. 
of 1 WAITING _FOR_REWIND: ; Label of return point for this WFIKPCH. 
7 1324 POST_TEST_TMRDY ; Assure that TM78 a 
1422 30 18 : 5 i TF_UNSOLNT ; Update UCB after REWIND. 
cs 691 + ' 5 BRB 70$ ; Branch back to test REWIND bit again. 
1B 1 § Bos: ENBINT 
1E 1550 90$: SETIPL UCBSB_FIPL(RS) ; Set to fork IPL. 
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AX/VMS Macro V04-00 
DRIVER. SRCITFDORIVER.MAR; 1 


; Call to indicate problem. 
we experience return, goto EXIT. 


i; Enable interrupts if REWIND done. 


3; Copy 1/0 function code to R1. 


We use it to 


{ire DRIVER 16-SEP-1984 
TION (and RESTARTIO) -SEP-1984 t 88: 08: }3 
BSBW TIMEOUT POWERFAIL 
BRW FUNCTIOR_EXIT : If 
100$ 
ENBINT 
MOVL R4,R1 
3 Now we have the 1/0 function code without modifiers in R1. 
3 branch to the particular code that handles the function. 
ASSUME 10$_NOP —Q 0 
ASSUME I10$_UNLOAD ae 
ASSUME IOS_SPACEFILE €0 § 
ASSUME I0$_RECAL EQ 
ASSUME I0$_DRVCLR EQ 4 
ASSUME IOS_ERASETAPE €Q $ 
ASSUME I0$"PACKACK EQ 
ASSUME IOS_SPACERECORD EQ 9 
ASSUME IOS_WRITECHECK EQ 10 
ASSUME I10$_WRITEPBLK EQ 11 
ASSUME I0$_READPBLK EQ 12 
ASSUME I0$_DSE EQ 21 
ASSUME IOS_AVAILABLE EQ = 17 
ASSUME IOS_READPRESET EQ 25 
ASSUME I0$_SETCHAR EQ $8 
ASSUME IOS_SENSECHAR €0 7 
ASSUME IO$_WRITEMARK €Q 8 
ASSUME I0$_WRITELBLK EQ ¢ 
ASSUME I0$_READLBLK EQ 
ASSUME I10$_REWINDOFF EQ 4 
ASSUME I0$_SETMODE EQ 5 
ASSUME I0$_REWIND EQ 6 
ASSUME IOS_SKIPFILE EQ * 
ASSUME IO$_SKIPRECORD €0Q 8 
ASSUME IOS_SENSEMODE €Q 39 
ASSUME 10$_WRITEOF EQ 40 
ASE R1,2- 
START_NOP,=- 
START ~UNLOAD 
START ~SPACEF ILE, 
START_RECAL,= 
START~DRVCLR, = 
START_NOSUCH, 


START -ERASETAPE 
T_NOSUCH, - 


START~NOSUCH, ~ 
START A ECE se 


START “NOSUCH, - 
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Vous005 START 


M 6 
7 TAPE DRIVER 16-SEP-1984 AX/VM 
TION (and RESTARTIO) -SEP- ~138¢ 88: 8: }3 DRIVER.S 
START_NOSUCH, = 
START_DSE 
START _NOSUCH,= 


START “NOSUCH,= 
START hos CH, 
PRES 


DzDOo 
= 
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IVER.MAR; 1 
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8 
OP F 


HAR 
SECHAR, = 

7: MARK 

ART “NOSUCH, - 
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START_WRITELBLK,- 
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START _NOSUCH: 
a S580 ft Oru. RO 


- DISABLE LSB 


50 O0F4 8F 
114A 
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; Branch to exit 1/0 function. 
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v04 ACK 


Start NOP, DRVCLR, PACK Hat 7 90:08:15 AX/VMS Macro V04-00 Page 32 


1 = 
» SENSECHAR or B78Ep=19 DRIVER. SRCITFDRIVER.MAR; 1 (1), 


-SBTTL Start NOP, DRVCLR, PACKACK, SENSECHAR or SENSEMODE 1/0 functions 
; START_NOP, START_DRVCLR, PACKACK, SENSECHAR and SENSEMODE 
; INPUTS: | 
3 a7 => TM78 CSR 
: R5 => UCB 
H START_SENSEMODE : 
START_SENSECHAR: 
START_ORVCLR: 
START_PACKACK: 
8 START_NOP: 
8 EX_NDT_CMD CMD=SENSE ,- 3_Execute a SENSE command 
8 TIMEOQUT=#MINIMUM_TIMEOQUT,-; which should not take much time. 
3 ERROR_LABEL=NOP_EXIT 
9 $ 
9 ; EX_NDT_CMD returns the interrupt code in RO. The only possible interrupt 
2 : codes that can occur after a SENSE command are: 
. 
9 3 1. HIC_DONE = which implies a successful completion. 
9 3 - HIC_TM_FAULT_A = which implies a controller error. | 
3 - HIC_TU_FAULT_A = which implies a drive error. | 


ee a a a et a a ts 2 ts 2 4 ss 2 a 1 SS = ss SS 2 os ss SS 
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0 
0 
0 
o 
0 
ae oe, ee #H1C_DONE ,RO 3; Was it successful? 
24 is 8 9 BNEQ 20$ :; If not, branch to see why not. | 
1444 3 A BSBW RECORD_SENSE_INFO ; Update UCB fields with latest data. 
OF £0 O2A BBS V_RDY,- ; If tape physically mounted, 
07 0158 C5 8 A UCBSL_AF DS(RS),5$ ; _branch around. 
50 O1A4 BF 3C A MOVZWL #SS$_MEDOFL,RO 3; Set proper return status. 
pee 8 , = BRB NOP_EXIT ; Branch around to exit. | 
00 €D 0 B ; CMPZV #IRPSV_FCODE,- ; See if the active 1/0 operation is | 
08 2B #IRPS$S_FCODE,- : a PACKACK function and if NOT then 
009A C B UCBSW_FUNC(R5),- : we will branch around. 
8 B #108_PACKACK 
6 \ =] BNEQ 10$ ; Branch if not PACKACK. 
0800 8F A B BISW #UCBSM_VALID,- : For successful PACKACK functions we 
64 AS 6 8 a UCBSW_STS(R5S > set the volume software valid. | 
50 > 2 B : MOVZWL S*#SS$_NORMAL,RO 3 Else indicate success status. 
4 11 ¢ BRB NOP_EXTT ; And branch around to exit. 
OFO 30 C 208: BSBW DEVICE _ERROR ; Do EXTENDED SENSE and log device error 
50 (1 91 C CMPB #HIC_TA_FAULT_A,RO 3; Was it a controller failure? 
12 C BNEQ 3; If not, 9° to indicate DRIVE error. 
50 0054 8F 3C C MOVZWL #SS$_CTRLERR,RO 3; Else indicate controller failure. 
Jes p BRB NOP_EXIT ; And branch around to exit. 
50 o008C BF 3C 4 508s ee #SS$_DRVERR,RO 3; Indicate drive error. 
1087 «31 «02D - BRW FUNCTION_EXIT ; Branch to common exit. 
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+4 -SBTTL Start REWIND, RECAL, READPRESET, REWINDOFF or UNLOAD function. 
DB ; START_REWIND, START RECAL, START _READPRESET, START_REWINDOFF and START_UNLOAD 
DB ; and START_AVATLABLE 
DB ; INPUTS: 
DB : RS => TM78 CSR 
dB 5 RS => UCB 
dB ; 
dB 
dB START_AVAILABLE : 
0080 8F As BISwW #1OSM_NOWAIT,- ; Available is equivalent of REWIND- 
009A C5 UCBSW-FUNC(R5) ; _NOWAIT and clear UCBSM_VALID. | 
0800 8F AA BICW #UCBSA_VALID,- ; Mark volume as invalid 
64 AS UCBSW_STS(R5S : and fall thru to REWIND. | 
START_REWIND: | 
START-RECAL: | 
START_READPRESET: 
50 O07 9A MOVZBL #F_REWIND!GO_BIT,RO ; Set command code in register. 
03 «(11 BRB REQIND_COMMON ; Branch around to common code. 
START_REWINDOFF : 
STARTUNLOAD : 
50 05 QA MOVZBL #F _UNLOAD!GO_BIT,RO ; Set command code in register. 
REWIND_ COMMON: 
0092 cS) 550s 90 MOVB RO,UCBSB_FEX(RS) ; Save command in convenient place. 
REWIND =RO,- ; Execute REWIND or UNLOAD. 
WAIT=UCB$W_FUNC(R5S),- ; Pass value of IOSM_NOWAIT. 


ERROR_LABEC=REWIND_EXIT 


REWIND returns the interrupt code in RO. 
The only possible interrupt codes here are: 
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1. HIC_DONE 
§ HIC_NOT_AVAIL 
- HIC_OFF LINE 
4. HIC_NON_ EX 
5. HIC-TM_FAULT_A | 
6. HICZTUTFAULT~A 
50 O01 91 CMPB #HIC_DONE ,RO ; See if DONE, 
$3 12 BNEQ 10$ ; If NOT, branch to test interrupt code. 
5 691 CMPB #F UNLOAD!GO_BIT,- ; See if tape has been unloaded and 
0092 ¢5 UCBSB_FEX(RSY , i so then we mark the volume as 
: invalid. 
96 12 BNEQ 5$ ; If NOT UNLOAD, branch around. 
0800 8F AA BICW #UCBSM valle - ; Mark volume as invalid. 
64 AS ' - UCBSW_STS(RSS 
50 4 3C 1 MOVZWL Sr eS3S_WORRAL RO ; Indicate success code and 
1 as 1 BISW #<MTSM~BOTA-16>,- : Set BOT bit on in UCB field. 
46 AS 1 UCBs, BEVDEPEND+2(R5) 
10 AA 1 BICW #<MTSA_LOST@-16>,- ; Clear the fact that we may have 
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. 2 
M78/TU78 MAGTAPE onty ER yo 3 14 
rt REWIND, RECAL, READPRESET, REWINDO 5-SEP 
1A 1 § UCBSL_DEVDEPEND+2(R5) 
| ae CLRL at RECORD(RS) 
1550 MNEGL #2,UCBSL_MF _PREVTM(RS) 
! 1 BRB REWIND_ERIT™ 
a § 10$: 
7 1534 CMPB ss #HIC_OFF_LINE,RO 
A 1535 NEQ 20$ 
¢ 15 $ MOVZWL #SS$_MEDOFL,RO 
1 3 RB REWIND_EXIT 
; 1 § 0s: 
1540 BSBW DEVICE_ERRO 
0 $ 1541 CMPB #HIC_TA_F AULT _A.RO 
0 1366 BNEQ 208 
8 B 154 MOVZWL SS$ creer RO 
b3e5 1368 BRB REWIND EXIT 
032 1366 30$: CMPB eure -NON_EX,RO 
0345 154 BNEQ 40$ ~ 
0347 1548 MOVZWL #SS$ Sw ae RO 
fin ee 
ba 133! 40$: MOVZWL #558_DRVERR.RO 
035 1888 REWIND_EXIT: 
0353 1554 BRW FUNCTION_EXIT 


been lost 

Indicate tape is positioned at start 

And indicate ignorance of TAPEMARK positio 
branch around to exit. 


See if OFF-LINE. 

If not, branch around to test further. 
Indicate media off-line and 

branch around to end. 


Do EXTENDED SENSE and log device error 
See if controller error. 

If not, branch around to next test. 
Indicate controller error and 

branch around. 


Test if non-existent drive. 

If not then branch to drive error. 
Indicate non-existent drive and 
branch around to exit. 


Indicate drive error 


Branch to common exit. 
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-SBTTL Start a SETCHAR or a SETMODE function 


START oe. and START_SETMODE 
The quad-word of data for the operation is contained in IRPS$L_MEDIA. 
This ‘PHYSICAL’ 1/0 function and the ‘LOGICAL’ I/0 function 
SET MODE are almost identical. The only difference 1s thet while 
both allow for the setting of: 


. Default buffer size 
- Tape density (1600 BPI or 6250 BPI). 
. Tape format 


the former function (i.e. SET CHARACTERISTICS) also allows for 
the resetting of the DEVICE CLASS and the DEVICE TYPE fields in 
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the UCB. 
The first two bytes of the QUADWORD of data at IRPSL hte contain 
the DEVICE CLASS and DEVICE TYPE respectively for a SETCHAR. 


The next word of the QUADWORD contains the new buffer pa The 
third word contains new density and format information. The fourth 
word of the QUADWORD is reserved. 


INPUTS: 
R3 => TM78 CSR 
RS => UCB 


START_SETCHAR: 
52 58 aS 00 MOVL UCBSL_IRP(RS) ,R2 ; R2 => current IRP. 
ASSUME UCBSB_DEVTYPE EQ UCB$B_DEVCLASS+1 
40 AS 38 A2~ 860 MOV IRPSL “MEDIACR2), UCB$B_BEVCLASS(RS) ; Reset CLASS and TYPE. 


START_SETMODE : 
MOVL 


52 58 UCBSL_IRP(RS).R : R2 => current IRP. 
42 A5 3A A2- B80 MOV IRPSL_MEDIA+2(R2) ,UCBSW_DEVBUFSIZ(R5) : Copy new buffer size. 
7c AS O3C 80 MOVW IRPSL_MEDIA+4(R2) /UCBSW _BOFF (RS) : Copy density, format 
; to unused UCB field 


; for now. 


GOD D1 FD BAA AAAAAAAAA AA AAA AA AA AAPA AOISAAO 
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EX_NDT_CMD CMD=SENSE,- ; Execute Non-data transfer SENSE command 
TIMEQUT=#MINIMUM. a $5 don't wait for long, and 
ERROR_LABEL=SETMODE EXIT 
; Branch around to EXIT if unable. 
; Remember EX_NDT_CMD returns the interrupt code in RO. 
50 oO. 91 CMPB #HIC_DONE ,RO ; Compare to success code. 
16 =613 BEQL 208 : If no error, branch. 


0E49 8630 BSBW DEVICE _ERROR 
CMPB HA hs TU_FAULT_A,RO 


BEQL 
MOVZWL #SS$ crm ene. RO 
BRB SETMODE _EXIT 


Do EXTENDED SENSE and log device error 


a T if sr pe error. 

fs 

A. t OGtROLLER errcr. 
Branch around to exit. 


50 
g? 
50 0054 8F 
69 
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v04- Start a SETCHAR or a SETMODE function -SEP-1984 DRIVER. SRCITFDRIVER.MAR; 1 (1) v0é 
50 O08C 8F 3C 90 1613 poviut #SS$_DRVERR,RO ; Indicate DRIVE error. 
62. 11 3 1614 BRB SETMODE_EXIf : And branch around to exit. 
97 1618 208: : 
97 161 ASSUME MT$V_LOGSOFT LT 16 
97 1918 ASSUME MT$V-LOGSOFTOG LT 16 
_ OF €1 0397 161 BBC #MT$0_LOGSOF TOG, = : Test if acetier has specified the 
OB 7¢ AS 99 1620 UCBSW~BOFF (RS) ,25$ : seB8Ls of MTSM_LOGSOFT in 
9C 1621 3 Me L. 4 GVOEPEND. tf NOT, branch. 
Of —3 9C 16 ¢ BBCS #MTSV_LOGSOFT,- : t. Here if clear, set it 
06 44 A Q39E 16 CBSL~DEVDEPEN ND(RS),25$ : pan! around. 
4000 8F AA 8 Al 1624 BICW #MTSM_LOGSOFT,- 5 nore it was set so we clear it. 
44 AS 0 Ag 1 5 25$ UCBSL_ _DEVDEPEND (RS) 
1330 = 330 8 A? 16 5 BSBW RECORD_SENSE_INFO ; Call to record the sense information. 
08 EF AA 1628 EXTZV ani $V_BENSITY,- 
05 O3AC 1629 #MTSS_DENSITY,- 
50 7C AS 8 “4 19 , UCBSW “BOF F (RSS .RO ; Extract user designated DENSITY parameter. 
04 EF 0380 16 ¢ EXTZV #MTSV_ 4 aaa = 
04 b38¢ 163 #MTS$S F 
5170 AS 0383 1634 UCBSW ~borr (RS), R1 : Likewise the FORMAT parameter 
51 FC85 CF41 9A 0386 1636 MOVZBL FORMAT_TABLECR1],R1 ; Replace software FORMAT with TM78 
t43 \oe? 3; specific code. 
52 OOFO 8F 3C¢ Beer 1022 MOVZ2¥L #MTSM_FORMAT,R2 ; Set up mask to reset UCB field 
OA E1 O3C1 1641 BBC #MF_ DS V_BOT, 
18 0158 C5 03¢3 bo UcBSL JAF “DS(R5), 30$ ; We only reset the DENSITY if we are at 
Bate 1967 ; beginning of tape. Else branch around. 
52 1f00 8F As tht 1645 BISW #MTSM_DENSITY,R2 3 Set mask to accept DENSITY. 
OOBA CS 94 «(03CC «(1646 CLRB  UCBSB"MF_DENSITY(RS) =: Inittalize UCS DENSITY byte. 
50 04 91 Q3D0 1647 #MT$K_PE_ 1600,R0 ; See if user specified 1600. 
03D3 1648 ASSUME MFSK_DENSITY_1600 EQ 0 
OA 13 0303 1649 30$ ; Branch if yes, 1600 BPI. 
B303 1650 ASSUME MFSK_DENSITY_6250 EQ 1 
OOBA CS) «9% 32 1651 UCBSB_MF DEMS] TY«RS) : Else indicate 6250 B 
05 FO 03D9 1936 INSV #MT$K-GCR_6250,- ; And insure that Ucest TS EVDEPEND winds 
08 0308 165 #MTSV_DENSITY,- 3 up with the correct Value for DENSITY 
05 O30C 1654 #MT$S_DENSITY,- 3 even thou P we may have arrived here 
7¢ A5 O3DD 1655 UCB$W~BOF F (R5S : by defaul 
DF 1996 
oF 1657 308: 
51 FO DF 1938 INSV Ri,- 
E1 165 mi. _TC_V_FMT,- 
03 0c —E1 1660 #MF TC” S- FMT,- 
0088 C5 —3 1661 ucesy AF ~ TMP LTCCRS) ; Set new FORMAT in UCB. 
44 AS AA £6 1666 BICW -UCBSL-DEVDEPEND(RS) ; Use mask to clear out fields. 
3¢ EA 166 MCOML ; Reverse mask for setting. 
7C A AA ED 1664 BICW ucosu FC(RS) ; Clear unwanted user specified parameters. 
7C A Fl 1665 BISW ucé$u 5),- 
44 AS F4 1996 UCBSL “BOPP CRS) = ; Reset the verified parameters 
50 01 3 43 166 MOVZWL S*#SSS$_NORMAL ,RO ; Indicate success. 
F 1968 SETMODE _EXIT: . 
OF96~=—s 531 F9 166 “BRW FUNCTION_EXIT ; Branch to common exit. 
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Start a SKIPFILE or a SPACEFILE function 5=-SEP-19 


4: ~SBTTL Start a SKIPFILE or a SPACEFILE function 
fe ; START _SKIPFILE and START_SPACEFILE 
FC ; INPUTS: 
FC ; ARPSL MEDIA = # files to skip (word count in longword field) 
FC ; Re => TM CSR 
8 FC r RS => UCB 
FC 3 
O3FC 
OFC START_SKIPFILE: ; Logical I/0 operation. 
Bere START_SPACEFILE: 3; Physical 1/0 operation. 
52 58 AS 00 FC MOVL UCBSL_IRP(RS) R2 ; R2 => current IRP. 
51 38 a2 32 0400 CVTWL = IRP$L-MEDIA(R2) ,R1 ; Pickup number of files to skip. 
ete: BwLSS REV_SPACEFILE ; Branch if reverse skip. 
7C AS) = =651~—s«iBD $c09 MOVW R1,UCBSW_BOFF (RS) ; Use convenient place in UCB to retain 
0400 ; number of files left to skip. 


7E AS = 651~~=B0 MOVW R1,UCB$W_BCNT (RS) : Use convenient place in UCB to keep 


original number of files to skip. 


Here we loop skipping records at a clip of 255 per skip since the repeat 
count _in the hardware command register is only 8 bits Soyo After 
each TAPEMARK is encountered we subtract 1 from UCBSW_BOFF until it 
reaches zero. Meanwhile we keep UCBSL_RECORD uptodate with the 
current tape position. 


SKIP_FF_LOOP: ; SKIP FILE FORWARD LOOP. 


7C AS” BS TSTwW UCBSW_BOFF (RS) ; See if any more files left to skip. 
BwEQL SKIP_NORMAL_EXIT ; EQL implies all done, so branch. 
EX_NDT_CMD CMD=SP_FWD_REC,=- ; Execute space forward record 


REPEAT=#255,- : T command to skip 255 records 
TIMEQUT=#TU78 MAX_SPACE,-; and timeout in N seconds and 
ERROR_LABEL=SRIP_EXIT ; branch to SKIP_EXIT if we fail. 


Test interrupt code. Remember EX_NDT_CMD returns the interrupt code in RO. 


BPO NNN NIUPIPININININ O00 0 0 & 2 2 2 SS 


PRE R RRR RRR RR RRR RRR PRP R RRP PERE 
BP EWAN IWAN 2 er 


50 O01 91 CMPB #HIC_DONE ,RO ; See if the command DONE. 
OD 12 BNEQ 10$ ; If not, branch around for more tests. 
; If HIC_DONE then, 
50 008D CS 9A MOVZBL UCBSW_MF_NDTCR+1(R5),RO ; Pickup number of RECORDS skipped. 
0080 ¢5 =—50)—s C0 ADDL RO,UCBSL-RECORD(RS) ; Add in to maintain tape position. 
FCD 1 BRW SkiP_FF_COOP ; And loop back to continue skipping. 
50 02 91 10$: CMPB #HIC_TM,RO 3 


See if TAPEMARK encountered. 
If not, branch around for more tests 


BwNEQ SKIPTERROR te 
to determine exact error condition. 


447 


a ee ee ee a dd dd 
NA AA AAAAAAAAAAAAAOAPAOO OOOO 
POPSPIPININININYD 9 9 9 I “DOO DOODOOOO OOOO O0O0 OOO OW 00000009 090909098 SIN NNN 


NAUSEA @ 9 OO NA UNE WIN O OD NAME WIN 9 OD NAU EWN OOD NAU EWN O OONOUE Win 
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3; If HIC_TM then, 
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Start a SKIPFILE or a SPACEFILE function -SEP-19 DRIVER. SRCITFDRIVER.MAR; 1 (1) 
023A 30 0464C 17 $ BSBw COMPUTE _NDT_REPEAT ; R1 = # records skipped before 
re if 3; TAPEMARK encountered. 
3 D 44F 17 ? INCL ; Add in TAPEMARK. 
0080 C5 7. & 451 17 ¢ ADDL Hadcthy pe cene cas) 3; Update tape position 
rf A 8 4 § 17 DECW uc ; Decrement # files left to skip. 
Boe C c3 1734 SUBL3 Mat te: F_PREVTM(RS),=- 
50 ¢ 45D 1735 uces gPECORDIRS)., RO’ ; RO = distance between last 2 TAPEMARKS. 
1 —E1 0461 17 § BBC ’ EV : If NOT mounted then 9° 
05 38 A 463 17 ucest BEVCHAR(RS), 208 ; test for possible Ev. 
E1 0466 1738 BBC #DEVSU_FOR,=- : If mounted NOT foreign, (i.e. ACP NOT 
OE 38 A 468 1739 uy BSL _BEVCHAR(RS), 30$ : NOT involved) branch around test EOV. 
50 D7 0468 1740 208: DECL ; See if last 2 TAPEMARKs adjacent. 
Oey 106) BwEQL SKIP. FILE_SETEOV ; EQL => yes so branch. 
47 1508 : We are here if either the volume is mounted, NOT foreign (i.e. ANSI mounted 
Bee rte 3 with the ACP involved) and/or the last two TAPEMARKs are NOT adjacent. 
0080 C5) DO 0472 1746 MOVL UCBSL_RECORD(RS),- ; If NOT between tapemarks on /FOR tape, 
00c8 C5 0476 1747 UCBSL-MF PREVTM(RS) 3: remember pes tt tee of this TAPEMARK. 
FF95 31 0479 1748 30S: BRW SKIP_FF_COoP ; Branch back to skip some more. 


7c AS 51 
7—E AS 51 
7C AS 
50.01 
0D 
50 §=6©008D C 
0080 ¢5~—s 50 
FF 

50 0602 
03 

50. (0 
01C2 
50 3603 
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: (1) 


Use convenient place in UCB to retain 
the number of files left to skip. 

Use convenient place in UCB to keep 
original number of files to skip. 


After each TAPEMARK is encountered we subtract 1 from 


- ; ND 
TIMEQUT=#TU?8_MAX_SPACE,-; 255 


F EQL implies done, so branch end. 


Meanwhile we keep UCBSL_RECORD 
BOT ends the operation 


SKIP FILE REVERSE LOOP 
ee if done. 


: Here we Loop skipping records in reverse at a clip of 255 records per skip 
in the hardware command register is only 8 


; Execute space reverse record 
T command with a REPEAT of 


and a TIMEOUT of N secs. 
Branch to SKIP_EXIT if we fail. 


DONE implies that we skipped 255 recs. 


If not, branch for further tests. 


RO = original repeat count (255). 
Subtract to update tape position. 


Loop back to continue skipping. 


Did we encounter a TAPEMARK? 
EQL implies yes. 
ay we encounter BOT? 


rh: 17 O ; REV_SPACEFILE - reverse spacefile. 
47C 17 3; R1 = negative of number of files to skip. 
47€ 17 3s RS => T CSR 
47C 1754 ; RS => UCB 
47C 1755; 
47C 17 § 
47C 1757 REV_SPACEFILE: 
AE cap 1038 MNEGW R1,UCBSW_BOFF (RS) 
AE sf 1760 MNEGW R1,UCBSW_BCNT(RS) 
o¢ 4 1206 
484 176 
0484 1764 
0484 1765 ; since the repeat count 
0484 1706 § bits long, 
0484 1767 ; UCB$W_BOFF until it reaches zero. Me 
0484 1768 ; uptodate with the current tape position. 
0484 1769 ; prematurely. 
0484 1770 ; 
0484 1771 
0484 1278 SKIP_FR_LOOP: 
BS 0484 177 TSTW UCBSW_BOFF (RS) 
0487 1774 BwEQL SKIP_RORMAL_EXIT 
048C 1775 
048C 1776 EX_NDT_CMD CMD=SP_REY REC,= 
048C 1777 REPEAT=4255 
048C 1778 
048C 1779 ERROR_LABEL=SRIP_EXIT  ; 
04A5 1780 
04A5 17a 3 
Q4A5 17 ¢ ; Test interrupt code which EX_NDT_CMD returns in RO. 
O4A5 1783 ; 
04A5 1784 
91 04A5 1785 CMPB = #HIC_DONE,, RO 
12 O4A8 1786 BNEQ 10$ 
O4AA 1787 
4AA 1788 ; If HIC_DONE then, 
4AA 178 
9A Q4AA 1790 MOVZBL UCBSW_MF_NDTCR+1(R5),RO 
¢ O4AF 1791 SUBL RO,UCBS$L~RECORD(RS) 
1 0484 1798 BRW SkiP_FR_COOP 
487 179 
487 1794 10$: 
91 0487 1795 CMPB = s #HIC_TM,RO 
13. O04BA 1238 BEQL 208 
91 Q4BC 179 CMPB #HIC_BOT,RO 
4BF 1798 BwNEQ SKIPTERROR 
4C4 1799 
4C4 1800 ; If HIC_TM or HIC_BOT then, 
4C4 1801 
404 1 § 208: 
30 O04C4 1 BSBW COMPUTE _NDT_REPEAT 
4C7 1804 
4C7 1 82 
91 04C7 1806 CMPB #H1C_BOT,RO 


Are we at BOT or TAPEMARK? 


Ee ee rs arent eee ieee a ee eo 


implies no; so branch around. 


; R1 = # of records actually skipped. 
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ie 
UCBSW_BOFF (RS) 


R1,UCBSL_RECORD(RS) 
#2. UCBSL-MF_PREVTM(RS) 

Pfc THOR 

BwEQL SKIP™FR LOOP 

C UCBSE RECORD(RS) 
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m— 


Ww 
o 
oe 
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; EQL implies BOT, so branch around. 


Page 40 
. (1) 


; Bump count to include TAPEMARK skipped. 
: Decrement # files Left to skip. 


Update tape position. 
After reverse motion, set previous TM to - 
Was it TAPEMARK? 

f so, branch back to continue skipping. 
If at BOT. then should be zero. 
Set BOT bit on in UCB field. 


; Clear the fact that we may have 


been Lost 


; If at BOT, then we are done. 
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re! -SBTTL Start a SKIPRECORD or a SPACERECORD function 
rt 3 START_SKIPRECORD and START_SPACERECORD 
4F ; INPUTS: 
4F 3 ARPSL MEDIA = # records to skip (word count in Longword field) 
4F 3 R3 => TM78 CSR 
OF 3 RS => UCB 
iF 
4F START_SKIPRECORD: ; Logical 1/0 operation. 
4f START_SPACERECORD: 3; Physical a 
52 38 AS 9 4F MOVL UCBSL_IRP(RS) ,R2 ; R2 => current IRP. 
51 38 A2 O4F CVTWL = IRPSL-MEDIA(R2) ,R1 ; Pickup number of records to skip. 
BwlLSS REV_SPACERECORD ; Branch if reverse skip. 
7C AS) «6551S BOOK MOVW R1,UCBSW_BOFF (R5) ; Use convenient place in UCB to retain 


7—E AS) =651—BO MOVW R1,UCBSW_BCNT(R5) ; Use convenient place in UCB to keep 


: number of records Left to skip. 
: original number of records to skip. 


Here we Loop skipping records at a clip of 255 or UCBSW_BOFF 
per skip since the repeat count in the hardware command 
register is only 8 bits long. After each HIC_DONE interrupt, 
we subtract the number of records skipped from UCBS$W_BOFF 
until we are done. 


SKIP _AF LOM: ; SKIP RECORD FORWARD LOOP. 


7C AS-soBS UCB$W_BOFF(R5) : See if any more records left to skip. 
BwEQL SKIP_RORMAL_EXIT ; EQL implies all done, so branch. 
So FF 8F QA MOVZBL #255,R0 :; Calculate repeat count, 255 or 
70 aS) «(550—sé@I CMPW = RO, UCB$W_BOFF (R5) : UCBSW_BOFF, whichever is less. 
04 19 BLSS : LSS =>7255 if less. 
MOVZWL UCBS$W_BOFF(R5S),RO : Else UCB$W_BOFF is Less. 


EX_NDT_CMD CMD=SP_FWD_REC,=- ; Execute space forward record 
REPEAT=RO,=- : T command to skip records 
TIMEOUT=#TU78 MAX_SPACE,-; and timeout in N seconds and 
ERROR_LABEL=SRIP_EXIT : branch to SKIP_EXIT if we fail. 


DDD ADDED MGs BS BS BP BB EE EAI nporonorononon orem 
NOUS WN OS OO NAMES WN 0 OD NOU EL VIN $0 ODNOAUE WIN" O OONOUFS MT O&O 
_" 


; Test interrupt code. Remember EX_NDT_CMD returns the interrupt code in RO. 


—~o 
~w— 


CMPB #HIC_DONE ,RO ; See if the command DONE. 
BNEQ 20$ 3; If not, branch around for more tests. 


SSS 


72 ; If HIC_DONE then, 


50 00BD 3 9A 74 MOVZBL UCBSW_MF_NDTCR+1(R5),RO ; Pickup number of RECORDS skipped. 

0080 ¢5 0 co 75 ADOL RO,UCBSL-RECORD(RS) ; Add in to maintain tape position. 
CAS 50 ae 7 SUBW CBSW _BOFF (RS) ; Subtract # of records just skipped. 
FFBC 3 7 BR kiP_rF Coop : And Loop back to continue skipping. 


et a ee 6 4 — 4 2 2 sd — 2 2 2b ns ss 2s od —) — bs bs a 2 — 2» sb a ss 2s 2 ts a st tt 
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v04- Start a SKIPRECORD or a SPACERECORD func 5-SEP-1984 00:17: DRIVER. SRCITFORIVER.MAR; 1 
02 91 48 1973 208: CMPB #HIC_TM,RO 3; See if TAPEMARK encountered. 
4— 1 BwNEQ SKIP “ERROR 3; If not, branch around for more tests 
! ? $ te determine exact error condition. 
$ ; If HIC_TM then, 
0133 «430 05 1885 BSBw COMPUTE_NDT_REPEAT ; R1 = # records skipped before 
22 1 § ; TAPEMARK encountered. 
51 D6 2 ! INCL R1 3; Add in TAPEMARK. 
51 A 22 1889 SUBW R1,UCBSW_BOFF (RS) 3; Decrement # records left to skip. 
= £ B228 1 39 ADDL R1 ,UCBSL RE CORD(RS) ; Update tape position. 
CS «6C3) «(0567 «(189 SUBL3 UCBSL_MF ~PREVTM(R5) ,- 
8 8262 1 8 ucee RECORD CRS) RO ; RO = distance pepueen last 2 TAPEMARKS. 
1 E1 569 189 BBC #DEV : a. NOT mounted t ~ 
AS 0568 1894 ucB$ BEVCHAR(RS), 30$ ; test for ane Bey EOv 
18 €1 OS6E 1895 BBC #DEVS0_FOR,- : If mounted NOT foreign, (i.e. ACP NOT 
AS 0570 1 3 30 UCBSL _BEVCHAR(RS), 40$ : NOT involved) branch around test EOV. 
50 od7 0573 189 DECL : See if last 2 TAPEMARKs adjacent. 
B22 1898 BwEQL SKIP_RECORD_SETEOV ; EQL => yes so branch. 
parA 1900 : We are here if either the volume is mounted, NOT foreign (i.e. AN31 mounted 
bean 1383 : with the ACP involved) and/or the Last two TAPEMARKs are NOT adjacent. 
CS) 6—p0 «(057A 1908 MOVL UCBSL_RECORD(R5),- ; If NOT between tapemarks on, cree tape. 
C5 OS7E 1904 UCBS$L MF _PREVTM(RS) 3 remember position of this TAPEMARK 
—E9 31 0581 1905 40$: BRw SKIP_SETEOF ; Branch to set status and exit. 


= T78/TU78 MAGTAPE DRIVER 16=SEP=1984 00:08:15 YAX/VMS Macro 04-00 p 
Start @ SKIPRECORD of @ SPACERECORD func 'S-SEP-1986 00:17:37 LDRIVER.SRCITFORIVER.MAR;1 o9" 


REV_SPACERECORD = reverse spacerecord. 
Ri = negative of number of records to skip. 
RS => TAPS CSR . 
R5 => UCB 
EV_SPACERECORD: 
MNEGW R1,UCBSW_BOFF (RS) 
MNEGW R1,UCBSW_BCNT(R5) 


7C AS «651A 
7E AS «651A 


3; Use convenient place in UCB to retain 
; the number of records left to skip. 
; Use convenient place in UCB to keep 

; original number of records to skip. 


Here we a skipping records in reverse at a clip of 255 or UCB$W_BOFF 
per skip since the repeat count in the hardware command 
register is only 8 bits long. After each HIC_DONE interrupt, 
we subtract the number of records skipped from UCBSW_BOFF 
until we are done. 


SKIP_RR_LOOP: 3; SKIP RECORD REVERSE LOOP. 
TSTW UCBSW_BOFF (RS) : See if any more records left to skip. 


7c AS”) sBS 
BwEQL SKIP_RNORMAL_EXIT ; EQL implies all done, so branch. 


50 FF 8F 9A MOVZBL #255,R0 ; Calculate repeat count, 255 or 

7C AS) =«6550—sé#B»I CMPW RO UCBSW_BOFF (RS) ; UCBSW_BOFF, whichever is less. 
4 19 BLSS : LSS =>"255 if less. 

50 7C AS 3¢ MOVZWL UCBSW_BOFF (RS) ,RO ; Else UCBSW_BOFF is less. 


EX_NDT_CMD CMD=SP_REV_REC,- 3; Execute space reverse record 
PEAT=RO0,- 3; NDT command to skip records 

TIMEQUT=#TU78_MAX SPACE.-; and timeout in N seconds and 
ERROR_LABEL=SRIP_EXIT ; go to SKIP_EXIT if we fail. 


: Test interrupt code. Remember EX_NDT_CMD returns the interrupt code in RO. 


See if the command DONE. 


CMPB = #HIC_DONE,RO 
BNEQ 208 


: If not, branch around for more tests. 
; If HIC_DONE then, 
MOVZBL vcoey MF_NDTCR#1(R5),RO ; Pickup number of RECORDS skipped. 
SUBL RO,UCBSL-RECORD(RS) ; Subtract to maintain tape position. 
SUBW 0,UCBSW_BOFF (RS) ; Subtract # of records just skipped. 
BRW Sk{P_RR_COOP ; And loop back to continue skipping. 
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engc TARO ; See if TAPEMARK encountered. 


CMPB ss WHIC_BOT, RO 
BwNEQ  SKIPTERROR 


; If HIC_TM or HIC_BOT then, 
30$: 
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BSBW COMPUTE _NDT_REPEAT ; Rl = # of records actually skipped. 
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Vou=000 Start a SKIPRECORD or a SPACERECORD func 5-SEP-1984 65:99:33 DRIVER.SRCITFORIVER.MAR;1 (1). v¢ 
EO 1964 
50 9 E 1985 CMPB ouiC.BOT RO ; Are we at BOT or TAPEMARK? 
1 —3 19 § BEQL 40 ; EQL implies BOT, so branch around. 
06 ; 138 408 INCL R1 ; Bump count to include TAPEMARK skipped. 
7C A 1 A Hy, 1968 SUBW R1,UCBSW_BOFF (RS) ; Decrement # records left to skip. 
pee C mwa EB 1970 SUBL R1,UCBSL_RECORD(R5) 3; Update tape position. 
00c f § gf FO 1971 MNEGL #2,UCBSL_MF_PREVTM(RS) ; After reverse motion, set previous TM to - 
0 F 1978 CMPB. - #HIC_TM, RO : Was it TAPEMARK? | 
f 5F8 197 BwEQL © SKIP~SETEOF ; If so, branch around to exit. | 
0080 Hy D4 OSFD 1974 CLRL UCBSL_RECORD(RS) ; If at BOT, then should be zero. 
1 As 691 1975 BISW < BOT@a-16>,- : Set BOT bit on in UCB field. 
46 AS 6 : 1376 UCBSL_BEVDEPEND+2(R5) 
10 AA 0605 197 BICW #<MTSA_LOST@-16>,- ; Clear the fact that we may have 
46 AS 0607 1978 UCBSL_BEVDEPEND+2(R5) : been Lost 
0061 31 0609 1979 BRW SKIP_SETEOF ; If at BOT, then we are all done. 


N | 
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Start a SKIPRECORD or a SPACERECORD oe, “SEP-1984 DRIVER. SRC REIT TFDRIVER.MAR; 1 ) 


° : 198) ; SKIP EXIT AND ERROR PROCESSING. | 
60C 19 f SKIP_FILE_SETEOV: 
60C 1984 SKIP-RECORD SETEOV 
7C AS) =6©B6 «0O060C:=O 1985 IncQ UCaSw _BOFF (RS) : Increment to indicate 1 less file skipped. 
? F 19 § EX_NDT_CMD chee 4 +4 Pe REC,- 3; Execute space REVERSE record 
F 19 REPEA : NDT command to skip back over 
60F 19 3 TIMEQUT=#MINIMUM_ TIMEOUT,-; Last of adjacen At TAPEMARKs. 
F 1385 ERROR _LABEL=SKIP-EXIT ; Branch to SKIP_EXIT if we fail. 
6 193) ; EX_NDT_CMD returns interrupt code in RO. 
50 9 91 3 1998 CMPB #HIC_TM,RO ; It had better be a TAPEMARK. 
12 6 6 1994 BNEQ § SKIPTHARD_ERROR : NEQ implies some error. 
00B0 C5 7 628 1938 DECL UCest RECORD(R5S) ; Decrement to record backward movement. 
50 O9A0 8F C 062C 199 MOVZWL #SS$_ENDOF VOLUME ,RO : Set final 1/0 status. 
48 11 1 1338 BRB SkiPy EXIT 3; Branch around to exit. 
3 ; 990 SKIP_ERROR: 
50 OD 91 06 001 CMPB #HIC_NOT_CAPABLE ,RO : See if blank tape. 
or 82 $ O88 BNEQ 3; NEQ means no, not blank tape. 
50 0204 ef 3C 606 00 poy cu. #558 OF INCOMPL .RO ; Else get proper error status and 
. ww Be one BRB SKIP_LEXIT ; branch around to end. 
50 OB 91 O63 O89 10$: ta #HIC_OFF_LINE,RO ; See if OFF-LINE. | 
07 12 0642 0 BNE SKIP-HARD_ERROR :; If not, branch around to test further. 
50 O1A4 8F 3C 0644 2008 ROVZuL #SS$_MEDOFL RO : Indicate media off-line and 
30.= 11 ie +94 BRB SKIP_ : branch around to end. 
648 2011 SKIP_HARD_ERROR: | 
0B7F 30 vee 81g BSBw DEVICE_ERROR ; Do EXTENDED SENSE and log device error 
Ss wt Oss 14 CMPB #HIC_TM_FAULT_A,kO ; See if controller error. 
07 12 065 15 BNEQ ; If not, branch around to next test. 
50 0054 8F 3C 3923 16 nov cul. #SS$_CTRLERR,RO : Indicate controller error and 
oe tH 3 BRB SKIP_EXIT ; branch around. | 
50 OC 91 065A $19 208: CMPB #HIC_NON_EX,RO ; Test if non-existent drive. 
07 12 0650 8 0 BNEQ 0$ 3; If not then branch to drive error. 
50 0106 BF 3C 065F 3091 MOVZWL #SS$_NONEXDRV,RO : Indicate non-existent drive and | 
mw ree § BRB SKIP_LEXIT 3; branch around to exit. 
50 008C or * 66 4 30S: MOVZWL #SSS_ORVERR,RO : Indicate drive error 
E 238 i a SKIPLEXIT 3; Branch around to end. 
50 0870 8F 3 és - MOVZUL asss ENDOFF I cetus return, | 
46 3 5 AB 6 } 8 BiSWw2 #<mMTSM A ee UCBSL _DEVDEPENDS 25ers) ; Set EOF in device depend 
0 11 067 s JERIT ; And branch around to exit. 
67 9 SKIP = EXIT 
50 01 9A ore eit eel’ OVZBL S*#Ss$ NORMAL ,RO ; Indicate normal status. 
7C A A3 0678 5 -" $UBW3 UCBSW_BOFF(R5),- 3 gop the number of files 
51 7E A ort 4 UCBSW_BCNT(R5), *R1 : pped 
50 10 10 51 =F re 5 INSV RI BiG #16,k0 ; And place count in high word of RO. 
0009 31 «(0686 6 BRW FUNCTION_EXIT : Branch to common exit. 
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«SBTTL COMPUTE_NDT_REPEAT subroutine 


COMPUTE _NDT_REPEAT = subroutine to compute the actual number of times a 
Non-data transfer (NDT) command has been repeated. 


INPUTS: 
R 


<= 


=> TM78 CSR 
=> UCB 


R5 => 
UCBSW_MF_NDTCR contains a copy of original NDT 
command loaded into unit's NDI register. 


OUTPUT: 
Ri = actual number of times the NDT command was repeated. 


Subroutine extracts original repeat count from UCBSW_MF_NDTCR and 
subtracts residue count from device unit's NDT command register. 


COMPUTE _NDT_REPEAT: 

MOVZWL UCBSW_UNIT(RS),R1 ; Get this device's unit number. 

PUSHL MF _NDTO(R3)CR1) : Push residue of previous NDT command. 

EXTZV #MF_NDTO_V_CCNT,- ; Extract residual repeat count and 
#MF_NDTO_S_CCNT,(SP),- ; zero extend it and then leave 
(SP 3; _on the top of the stack. 

MOVZBL UCBSW_MF_NDTCR+1(R5),R1 ; Pickup original repeat count. 

SUBL (SP)+,R1 ; Subtract to get # completed. 


RSB Return to caller. 
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-SBTTL Start WRITEOF or WRITEMARK or DSE function 
START_WRITEOF and START_WRITEMARK and START_DSE 


INPUTS: 
3 => TM78 CSR 
RS => UCB 


TART_WRIT ; Logical 1/0 function. 
TART _WRITEMARK ; Physical I/0 function. 
MO #MINIMUM_TIMEOUT,- 
UCBSL_MF~TIMOUT (AS) ; Indicate aces for next NDT operation. 
MOVZBL #F_WTA_GCR!GO_BIT,RO ; Assume 6250 density 
TSTB B$B MF _DENSITY(RS)  : Test the dens ity. 
BNEQ GO_WRITEMARK_OR_ERASE ; NEQ japt tes 6250, so branch around. 
MOVZBL #F_WTM_PE!GO_BIT,RO ; If 1600, set proper command code | 
BRB GO~WRI TEMARK~OR_ERASE ; Join common WRITE _TAPEMARK/ERASETAPE code. | 
TART_ERASETAPE : | 
MOVL #MINIMUM_TIMEOUT,=- 
UCBSL_MF -TIMOUT (RS) ; Indicate TIMEOUT for next NOT operation. 
MOVZBL #F_ERG GCR!GO_BIT,RO ; Assume 6250 density. 
TSTB UCBS$B_AF DENSITY(RS) =: Test the density. 
BNEQ GO_WRITEMARK_OR_ERASE ; NEQ implies 6250, so branch around. 
MOVZBL #F_ERG_PE!GO_BIT,RO : If 1600, set proper command 


mi !G0_ code. | 
GO~WRI TEMARK~OR_ERASE ; Join common WRITE _TAPEMARK/ERASETAPE code. 


START_DSE : 
MOVL #TU78_MAX_DSE,UCBSL_MF_TIMOUT(RS) 
; Indicate TIMEOUT for next NDT operation. 
MOVZBL_ #F _DSE!GO_BIT,RO ; Set NDT command in RO. 
GO_WRITEMARK_OR_ERASE: ; COMMON CODE. 
EXx_NOT_CMD CMD=RO, xecute write tape mark or erase command 


- . E 
ERROR_LABEL=WRITEMARK_EXIT 


EX_NDT_ CMD returns the interrupt code in RO. After a WRITE-TAPE-MARK or 
ERASE command the following interrupt codes are possible and the 
following actions are taken: 


1. HIC_DONE = indicates that the operation terminated successful ty. 
We simply increment the tape position counter (UCBSL_RECORD) 
and return SS$_NORMAL status. 

. HIC_EOT = indicates that the operation terminated successfully but 
the tape is now positioned beyone the rerseesive strip at the 
end of the tape. We increment the tape position counter 
(UCBSL_RECORD) ard return SS$_ENDOFTAPE status. Also 
we set the MTSM_EOT bit in UCBSL_DEVDEPEND. 

. HIC_FPT = we could not write the TAPEMARK due to the fact that the 
tape was WRITE-LOCKED. We return SSS$_WRITLCK status. 

- HIC_OFF_LINE = indicates that the drive is offline and therefore we 
were unable to complete the operation. We return SS$_MEDOFL 


status. 

. HIC_NON_EX = indicates that the HARDWARE device is non-existent and 
therefore we were unable to complete the operation. We return 

SS$_NONEXDRV status. 

. HIC_TM_FRULT_A = indicates the TM78 controller experienced an error 
that prévented successful completion of the operation. We 
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60B 2124; return SS$_CTRLERR status 
ae 
608 21 : : func t ton. 
Sop $159 
50 01 4 te 0 cMPe #HIC_DONE,RO 
ome ee 
so 0n7e BF Gees S18 RAZ BSS twoor rare 0 
46 AS bere 1 : ycesL_ BEVDEPENDS2(RS) 
03 11 Ooe , BRB 0$ 
50 01 3¢ O6F 139 108: MOVZWL S*#SS$_NORMAL,RO 
00 «EF O6F 141 " ' EXTZV.— MIRPSV_FCODE,- 
06 6F5 148 IRP$S~FCODE.- 
51 009A C 06F6 214 CBSW_FUNC(R5),R1 
06 31 D4 GFA 144 CPL R1 ,#10$_ERASETAPE 
15 ap HS Bias Sie SE Sagrtonoe 
0080 8 D4 0704 2148 CLRL UCBSL_RECORD(RS) 
00c8 cS) «—(02—C—CiCCE:«C#O708 «= 2149 MNEGL 6 UCBSL_MF_PREVTM(RS) 
wed Ped ton 
00B0 CS D6 O70F 138 "INCL ~—-UCBSL_RECORD(RS) 
ited & si ott 12 wn eer “fit OREVTRAS) 
3 0O«7t O7IA 135 30$: BRB WRITEMARR_EXIT 
50 08 4 onic 137 40S: CHPB WHC. FPT,RO 
50 O25c BF 3¢ o7e1 159 MOVZWL #SS$_WRITLCK,RO 
ae 07 6 160 RB WRITEMARK_EXIT 
50 28 4 0736 16¢ 50S: CMPB wwIC. OF F_LINE,RO 
50 O1A6 BF 63C «(0720 «2164 MOVZWL #SS$_MEDOFL,RO 
20.—=s«11 o7 ¢ 192 ann: BRB WRI TEMARK EXIT 
0A96 «= 30 : 4 189 "—«BSBW = s«éDEVICCE_ERROR 
0 BB Se pysatnaratr no 
50 0054 8F 3¢ O73C 2171 MOVZWL #SS$_CTRLERR,RO 
i ra 1% BRB WRITEMARK_EXIT 
50 oC 4 743 1% 708: CHPB awIC. NON_EX,RO 
50 01C4 BF 3 28 1% MOVZWL #SS$_NONEXDRV,RO 
0s «(11 740 7 RB WRITEMARK_EXIf 
50 008C BF 3C ror 179 80$: MOVZWL #SS$_DRVERR,RO 
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7. HIC_NOT_AVAIL, AIC_BAD_TAPE, Hic. TU_FAULT_A = all indicate that 
a Rardware error prevented Successful termination of the I/0 
We return SSS$_DRVERR status. 


See if sucessful. 
EQL implies yes. 
See if successful but beyond EOT. 
If not, branch around to next test. 
Indicate final status. 
Set bit indicating we are 
beyond EOT marker. 
Branch around. 


Indicate success. 


See which command we are executing. 
if’ it is ERASETAPE, then branch 
around the incrementation of 


the amt of -pSE RECORD and | 
the initializ 


| 
Increment peeveten counter. 
Remember this as position of previous 

TAPEMARK which we have just written. 
Branch around to exit. 


Was the problem lack of RING. 

NEQ implies no, so branch to next test. 
Indicate WRITELOCK status and | 
branch around to exit. 


bs drive offline? 
Q implies no, so branch to next test. 

Re final status and 

branch around to exit. 


Do EXTENDED SENSE and log device error 


Is problem, controller problem? 

If not, branch around to next test. 

Else indicate final status and 
branch around to exit. 


Is problem, NON-existent drive? 

f not, branch around to next test. 
Else indicate final status and 
branch around to exit. 


Indicate DRIVE error. 


- TM78/TU78 MAGTAPE DRIVER 
Start WRITEOF or WRITEMARK or hy a 


SS 


SEP=19 
P=1984 


Be 80:99:43 


AX/VM 
DRIVE 


v04 
SREITFORIV 


-00 
IVER.MAR; 1 


Page 4 


9 
1 


< 
2 


(1)) 

| 
754 2181 WRITEMARK EXIT: 
0c38 31 0984 318) BRw FUNCTION_EXIT ; Branch to common exit. 
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Ss 
Rs 


~SBTTL NOT Function Executor. 


NDT_EXECUTOR = Subroutine called by code generated by EX_NDT_CMD macro. 
inie re performs the common part of the exécutTon of all 
commands. 


INPUTS: 
R3 => TM78 CSR 
RS => 


UCBSW_MF_NDTCR(RS) contains the command to put into the NDT register 
UCBSL_MF_TIMOUT(RS) contains the TIMEOUT amount 


OUTPUTS: 
AB og do NOT get timed cut, we return to the point of invocation plus 2 
na: 


we 


RO = HIC (Hardware Interrupt Code) returned by 1TM78 


If we get a TIMEOUT and experience return from POWERFAIL_TIMEOUT we 
return to the ERROR_LABEL whose relative address is stored 
at the point of invocation. 


See Ge Ge Se Ge Ge Ge Ge Se Ge Ge Sete Se Ge Ge Se Ge Ge 


NDT_EXECUTOR: 
; Push invocation point onto SUBSTACK. 


DP DPUPV PVP PVPS SUSU SUS SUSI ISIS ISIS 
D2 WWW 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
2 
r4 
r4 SUBSAVE 

§ MOVZWL UCBSW_MF _NDTCR(RS 
r4 
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a en ie Dies Di ti Die ie Bie Bie BD BB ee et i i i 
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3 
5 


50 oO00BC CS 3C ),RO ; Record Hardware command about to 
0180 ¢5 =—550-—s« OO 66 MOVL RO, UCBSL=MF_CMD(R5S : become the CURRENT command. 
68 3 
68 ; For all but REWIND, UNLOAD, and DSE, we goquanctes Sze the following so as 
68 ; .. (not to software timeout due to activ cy on other drives. 
68 ; This is due to the fact that although the TM78 will allow us to queue up 
68 ; parallel requests it in fact will not process them in parallel and 
68 § s therefore activity on other drives can mean inordinate waits which 
68 ; would trigger software timeouts. 
6B 2220 ; Sequentialization is enforced 4 using the PRIMARY channel (i.e. the TM78 
o8 ; ; 1DB) as an interlock or . 
6B ° 
mn. ee 68 § CMPB #F REWIND!GO_BIT,RO :; See if a REWIND. 
10 13 6 BEQL : If SO branch around and DON'T REQPCHAN 
50 05 91 7 CMPB #F UNLOAD!GO_BIT,RO ; See if a UNLOAD. 
0B 13 7 BEQL : If SO oranch around and DON'T REQPCHAN 
50 0B 91 7 CMPB #F DSE!GO_BIT,RO ; See if a DSE. 
06 «13 78 BEQL ; If So brenc® around and DON'T REQPCHAN 
cA 108 REQPCHAN ; Request TM78 channel for all others. 
0 DSBINT 
6 PRIOR_TEST_TMRDY ; Assure that TM78 ready. 
05 €0 F BBS #UCBSV_POWER,- 
59 64 AS 1 UCBSW_STS(R5S ,40$ : Branch if POWERFAIL. 
50 54 a? C MOVZWL UCBSW"UNIT (RSS RO ; RO = unit number of device. 
90B¢ C C MOVZWL UCBSW-MF_NDTCR(RS),- 
0 A340 MF _NDTO(R3) CROJ ; Move command to proper register. 
79F WFIKPCH 50$,UCBSL_MF_TIMOUT(RS) ; Wait for inter ryet. 
7? POST_TEST_TMRDY ; Assure that 1M78 ready. 
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7B4 41 
7B4 rt ; Assure not REWINDING or LOADING. 
EF 0784 & EXTZV #MF_NDTA_V_NDIC,=- ; Extract interrupt code from attention 
7B 44 #MF_NDTA_S_NDIC,= ; data saved in UCB by interrupt 
78 45 UCBSL_MF-NBTA(R5),R2  ; dispatcher, and place in R2. 
91 078B 46 CMPB ss #HIC_ROT-RDY,R2 : See if NOT-READY. 
7BE 4 ; NOT_READY implies the drive has been 
7BE 48 ; .MANOALLY rewound or loaded. 
ig 78 49 BNEQ 20$ ; If NOT, branch around. 
A Bre 50 BISwW #UCBSM_MF_REWIND,=- i; If in the middle of MANUAL REWIND, 
7¢ 51 UCB$W_BEVSTS(R5) ; then set appropriate bit. 
31 Bree 26 BRW AWAIT_MANUAL REWIND ; If NOT=READY, branch to wait for 
707? 325 ; rewind or load to finish before 
1494 22 208 ; trying to restart the 1/0 operation. 
91 Ore 2$ CMPB #HIC_REWINDING,R2 ; See if REWINDING interrupt. 
12 O7CA 5 BNEQ 30$ ; If not, branch around. 
AB O7CC 28 BISW #UCBSM_MF_REWIND,=- i If in the middle of REWIND, then 
07CE 5 UCBSw_BeEvSTS(R5) ; set appropriate bit. 
070 5961 
DO 0700 4 MOVL UCBSL_MF_NDTA(RS) ,- ; Copy NDT attention data to a 
07D4 6 UCBSL~MF-NDTA_C(R5) ; stable place in the UCB. 
30 0707 64 Bw SAVE_TM78_REGS ; Save hardware registers for ERROR LOG 
O7DA 65 1OF ORK ; Lower IPL to FORK Level. 
EO Q7E 2066 BBS  § #UCBSV_POWER,- 
Ore? 67 UCB$W_STS(R5) ,50$ : Branch if we had a POWERFAIL. 
O7E 268 RELCHAN ; Release channel in case we have it. 
11 O7EB 69 RB 608 ; Branch around if not. 
O7ED 70 40$: ENBINT ; We had a POWERFAIL. 
07F0 71 508: SETIPL UCBS$B_FIPL(RS) ; _or a TIMEOUT. 
30 O7F4 i BSBW TIMEOOT_POWERFAIL ; Call routine. 
148 7 SUBPOP R1 3; R1 => point of invocation. 
32 0801 74 CVTWLE = (R11), =( SP) ; Rel. addr of ERROR_LABEL to TOP of STACK 
CO 0804 75 ADDL (SP)+,R1 ; R1 => ERROR_LABEL 
11 0807 76 BRB 70$ ; Branch around. 
0809 77 608: 
EF 0809 78 EXTZV  #MF_NDTA_V_NDIC,- ; Extract interrupt code from where 
0808 2279 #MF-NDTA-S-NDIC,- 
tt seo UCBSL_MF-NBDTA_C(R5),RO ; we stashed it above. 
0810 Ht SUBPOP R1 ; R1 => point of invocation. 
O81A 83 70$: : 
4 ae 84 ADDL #2,R1 ; Adjust to correct return or error address 
1 1D 2285 JMP (Rf) ; Return to caller or ERROR_LABEL. 
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i bs -SBTTL Start READLBLK or READPBLK functions. 
if 83 ; START_READLBLK and START_READPBLK 
1fF 2091 ; INPUTS: 
1F 3 3 Re => Le ty CSR 
Fenske es 
1F 95 START_READLBLK: 
1F 38 START  READPBLK: 
06 E1 1F 9 BBC #10$V y Reverse - ; If NOT reverse operation, branch 
OC 009A C 0 1 98 UCBSW-FUNC(R5S , 108 around to handle it. 
08 2 00 ; READ REVERSE code 
3F 4 6=6©90)3=—0825 01 MOVB #F_READ RE v.60 _BIT,- ; Save the primary hardware OPCODE in 
0092 ¢5 3 7 O UCBSB_FEX (RS) : the uC 
9 90 O82A 0 MOVB a REXD FWD 'G0 BIT,- 3 And Pr pny save the Opposite phacdvere 
0093 C5 082C 04 ucB$B_ CEx(R5) ~ ; OPCODE in the UCB. The OSITE 
O82F 05 ; OPCODE is used when we A. PREAD _OPP 
O82F $09 3 status back from the controller. 
OA 11 8 ; $05 108 BRB 20$ ; Branch around READ FORWARD Logic. 
0831 2309 ; READ FORWARD code 
39S _« 90 tt $19 MOVB #F READ eis _BIT,- ; Save the primary hardware OPCODE in 
0092 C5 0833 11 UCBSB F : the UCB. 
F 90 0836 \¢ MOVB REXD REV? GO. BIT,- $ And also a“ the OPPOSITE hardware 
0093 C5 0838 1 UCBSE. cEx(r5) ~ 3; OPCODE in e UCB. The OPPOSITE 
0838 14 ; OPCODE is a d when we get READ_OPP 
bese 12 208 3 status back from the controller. 
0148 30 0838 31 , BSBW READ_OR_WRITECHECK_BLOCK; Call internal subroutine to effect 
Oate 418 : 1/0 data transfer. 
1—E 50 €9 OB83E $9 BLBC RO,READ_EXIT 3; If transfer failed, branch to exit. 
3 E1 0841 1 BBC #10$V _DATACHECK, - ; If no DATACHECK has been specified 
009A C 0843 $$ UCB$SW-FUNC(R5),- : then we are finished so we branch 
18 pees 524 READ_EXIT 3 around to exit. 
06 €1 0847 25 BBC #1O$V_REVERSE,- : If NOT reverse operation, branch 
07 009A C5 0849 3 6 UCBSW~FUNC(R5S , 308 + around to handle it. 
0840 2328 ; For READ REVERSE with yah pe 
11 90 084D 9 MOVB #F_SP REC! 60. BIT,- ; we reposition FORWARD one bloc 
0092 ¢5 8 4F 0 ycgse_re FEXTR 3 $0 as to be able to do the URITECHECK 
05 11 3 ¢ 1 30s BRB 40$ 3; And we branch around. 
0854 4 , ; For READ FORWARD with WRITECHECK, 
13. 90 0854 4 MOVB #F _SP_REV_REC!GO_BIT,- ; we reposition back one block 
0092 C5 526 5 ue UCBSB-FEXTRS) 3 $0 as to be able to do the WRITECHECK 
0586 30 389 bere BSBW  —sINTERNAL_SPACE : Execute command in UCBSB_FEX 
85C¢ 8 ; _for one tape position. 

29 50 +=€8 5C 9 BLBS RO,START_WRITECHECK ; If positioning succeeds, branch to 
5F 40 3: execute WRITECHECK. Else fall thru. 
+H 41 READ_EXIT: 

0B30 = s 331 F 42 BRW FUNCTION_EXIT ; Branch to common exit. 
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-SBTTL Start WRITELBLK or WRITEPBLK functions. 


START _WRITELBLK and START_WRITEPBLK 


iB 2 => we CSR 


BBC 


MOVB 
BSBW 
BLBS 


WRITE_EXIT: 
BRW 


RO, #SS$_ENDOF TAPE 


RO,WRITE_EXIT 


#UCBSV_ERLOGIP 
UCBSW_STS(RS) , 208 


#10$V SU-FUNC ERB = 


wf ASP _REV REC!GO_BIT,~ 
INTERNAL. “SPACE 
RO,WRITECHECK_FORWARD 


FUNCTION_EXIT 


Colt internal subroutine to effect 
1/0 data transfer. 


ENDOF TAPE is not really an ERROR. 
therefore branch around if we got it. 


If transfer failed, branch to exit. 


If we had a recoverable write error, 
force a DATACHECK operation. 


If no DATACHECK has been specified 
then we are finished so we branch 
around to exit. 


Else we reposition back one bloc 
so as to be able to do . WRIT 
Execute command in UCBSB_FEX 
for one tape position 
Branch to command ie cuece code, 
if we successfully positioned. Else 
we fall thru. 


k 
ECHECK 


Branch to common exit. 
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1 -SBTTL Start WRITECHECK function. 
$ 3 START_WRITECHECK 
5 ; INPUTS: 
§ 3 RS => TM78 CSR 
; R5 => UCB 
8 : 
90 START_WRITECHECK: 
06 €1 91 BBC te rh yt | ad ; If NOT WRITECHECK REVERSE 
009A C5 BBA 36 UCB$W-FUNC (R55 ,~ ; branch around to handle it. | 
OC see Se WRITECHECK_FORWARD 
88E 95 ; WRITECHECK REVERSE. 
2F 690) «=—(088 38 MOVB #F_WRITE CNS CKREV60_BIT.= ; Save Primary hardware opcode 
0092 C5 089 9 CBSB_FER (RS) ; _in the UCB. 
29. 90 9 98 MOVB #F WRITE GNECK_FUD!60_81T..= 3 Save Secondary hardware OPCODE 
0093 C5 0895 99 UCBSB_CER(RS) : _in the UCB also. 
OA 11 0898 2400 BRB WRITECHECK_COMMON ; And branch around. 
089A 2401 WRITECHECK_FORWARD: | 
089A 186 ; WRITECHECK FORWARD. 
29 90 O89A 240 MOVB #F WRITE CHECK_FWD!GO_BIT,- 3 Establish primary hardware OPCODE | 
0092 ¢5 089C 3404 UCBSB_FER(RS) : and save it in the UCB. | 
2—F 90 O89F 2405 MOVB #F WRITE CHECK_REV!GO_BIT,- ; And save OPPOSITE hardware 
0093 C5 08A1 406 UCB$B_CER(R5) : in the UCB also. 
O8A4 2407 WRITECHECK_COMMON: 
gop 30 O8A4 2408 BSBw READ_OR_WRITECHECK_BLOCK ; Effectuate 1/0 transfer. 
4350 €9 4 ro BLBC RO,WRITECHECK_EXIT ; Branch around if error. 
OBAA 2411 ASSUME MBASV_SR_WCKLWR LT 16 ; Assumptions that allow | 
O8AA tig ASSUME MBASV_SR_WCKUPR LT 16 ; _word compare in following. 
B3 OBAA 241 BITW #MBASA_SR_WCKLWR!- : See if we got a DATACHECK 
OBAB 2414 MBASM_SR_WCKUPR,- 3 comparison error. 
0128 C5 0600 8F O8AB 2415 UCBSL_AFMBA_SR(RS5) 
~~ we Beet £i$ BNEQ 10$ ; NEQ implies DATACHECK error | 
02. «€1 ORB 418 BBC #MT$V_EOT-16,- : If NO DATACHECK, see if 
46 AS 0885 2419 UCBSL~DEVDEPEND+2(R5) ,- ; beyond the EOT on a write. | 
0887 2420 WRITECHECK EXIT ; If NOT, then branch around. 
50 0878 8F B60 0888 2421 MOVW #SS$_ENDOF TAPE RO : If SO, return proper status 
a peed 2 § BRB WRITECHECK_EXIT : and branch around to exit. | 
peer 424 10$: ; We had a DATACHECK error. 
50 0132 ¢5 32 F 2425 CVTWL 4 UCBSL_MFMBA_BCR+2(R5) ,RO ; RO now contains negative of 
08C4 24 § 3; _# bytes left to transfer. 
51 7E AS 3C O8C4 24 MOVZWL UCBSW_BCNT(RS5) ,R1 ; R1 has length of transfer. 
50 3} co C8 2428 ADDL R1,R0 ; RO = byte # of WORD following erro) 
0 o7 CB 2429 DECL ; RO = relative byte # of 2ND 
CD 2450 ; _byte of WORD in error. 
29. = 91 8 CD 2431 CMPB #F WRITE CHECK FU 60_BIT .= ; See if a REVERSE operation. 
0092 ¢5 CF 26 é UCBSB_FER(R ) 
08 12 b¢ 2 ? BNEQ 0$ ; NEQ implies REVERSE. 
09 ~=«€0 sp4 435 BBS #MBASV_SR_WCKLWR,- ; For FORWARD operation 1ST 
08 0128 C5 D6 2436 UCBSL_AFMBA_SR(R5) , 308 ; _byte is LOW order byte. 
08 11 O8DA 2437 BRB 40$ ; Branch around if Ist byte OK. 
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VOun 000 Start WRITECHECK function. $78 Pa} 984 $8 98:4 LORIVER. SREITEDRIVER.MAR: 1 ’ (1). 
DC $38 20$: :; For REVERSE 1ST byte is HIGH. 
OA €1 DC 24 BBC #MBASV_SR_WCKUPR,- ; So branch around decrement if 
02 0128 C5 440 oe UCBSL_MFMBA_SR(R5) ,40$ ; it is error free. 
50 07 E 44 DECL RO ; RO = relative byte # of 1ST 
E4 3 byte of WORD in error. 
ES 2444 408 
50 50 10 78 8 E4 ASHL #16,R0,R0 ; Shift count to hi word of RO. | 
50 005C BF BO OBEB 244 MOVW — #SS$_DATACHECK,RO ; And indicate DATACHECK error. | 
ta 447 WRITECHECK EXIT: 
QAA2 31 O8ED 2448 BRO FUNCTION_EXIT ; Branch to common exit. 
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ct »SBTTL READ TRANSFER ACTION TABLE 

4 gi ; READ TAT = the following table is used by subroutine READ_OR a¥ATTECHECE BLOCK 
455 ; to determine the pee tons it should take as the result of the Hardware 
454 ; Interrupt Code (HIC) that occurs after executing a 1M78 read 
455 ; command. The TAT (Transfer Action Table) contains an entry for 
128 : each possible HIC that could be generated by a READ command. 
458 ° 

439 READ_TAT: 

461 TAT_ENTRY HIC_DONE,SS$_NORMAL ,- 

rh POSTTION=YES> COUNT=YES 

464 TAT_ENTRY HIC_SHORT_REC,SS$ ~~ anal 

465 POSITION=VES, COUNT=YE 

169 TAT_ENTRY HIC_LONG_REC,SS$ pATagveRm. - 

ree POSITION=YES, COUNT=Y 

290 TAT_ENTRY HIC_ERROR,SS$_DRVERR,- 

7) POSTTION=YES,,ERRLOG=YES 

138 TAT_ENTRY HIC_TM,SS$_ENDOFFILE,- 

474 DEVBEPEND=AT$M_EOF,- 

475 PREVIM=YES,- 

426 POSITION=YES 

478 TAT_ENTRY HIC_BOT,SS$_ENDOFFILE,- 

479 DEVBEPEND=MT$M_BOT,- 

rt tt PREVIM=YE 

tt TAT_ENTRY HIC_NOT_ CAPABLE ,SS$_OPINCOMPL ,- 

mere ERRCOG=VES 

485 TAT_ENTRY HIC_OFF_LINE,SS$_MEDOFL 

tt TAT_ENTRY HIC_NON_EX,SS$_NONEXDRV 

489 TAT_ENTRY HIC_NOT _AVAIL,SS$_DRVERR,- 

rh ERRCOG=VES 

136 TAT_ENTRY HIC_TU_FAULT_A, $33 DRVERR,=- 

49 DEVBEPEND® ” ate TSM_ osT,- 

toe ERRLO 

£38 TAT_ENTRY HIC_TM_FAULT_A, ‘3 CTRLERR,- 

49 Devoe penpent SM_ osT,- 

re ERRLOG=YES 

500 TAT_ENTRY HIC_BAD_TAPE ss, QAvERR. - 

501 DEVDEP AD=MT $m_ 

5 § ERRLOG=Y 

3 4 TAT_ENTRY HIC YREADARLE . SS$_DRVERR,=- 

283 POSTTION=YES,=- 

506 ERRLOG= YES 
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; END OF TABLE. 
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CTRLERR,= 
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.SBTTL READ_OR_WRITECHECK_BLOCK 


READ RAT TECHECK BLOCK - internal subroutine to read or writecheck a 


READ_WRITECHECK_RETRY: 
MOVL RF BERS) .RO 
MOVZWL ROTR 

BNEQ Xx? 

MOVL  #1816,R0 


50 14 A3 ickup Byte count from device. 
0 lear extraneous bits. 
f not zero, leave as is. 


P 
f 
If zero, then treat as if 64K. 
R 
I 
L 


© > > >> > >> | 
AQOQOQOOOO 
SoBoLrrren 


G 
ECH 
9 13 
9 14 
a 
ee 
986 15 : INPUTS: 
9 ? 0; UCBS$B _FEX contains the cinery a *ireuere OPCODE to perform. 
2 521 : UCBS$B_CEX By thee ppOsite hardware OPCODE to perform in case 
4 6 ; § ; 10$V -nevEisl* fn'ue pcesw FUNC is set if the primary OPCODE is a 
3B 5: 10$v_ IHRE RY le Ofesu.Fu FUNC is set if we should inhibit RETRY 
386 5859 jem 
986 3 : ; RS => UCB 
$86 530 ; OUTPUTS: 
986 2531 ; 
0986 5838 
bone 534 READ_OR_WRITECHECK_BLOCK: 
344 535 SUBSAVE ; Save return point on the SUBSTACK. 
838 5 § REQPCHAN 3 pa tecete the TM 
53 54 pO 0996 25 MOVL R4,R3 3 opy so that R3 => TM78 C¢ 
8444 238 REQSCHAN 3 At ocate MBA. Returns Ra = “MBA CSR. 
0092 CS) «9B O99F 2540 MOVZBW UCBS$B_ penses? ~ 3; Move primary command code and GO_BIT 
0084 C5 O36 ee UCBSW_ F_CS1(R5) 3 to command template in UCB. 
poee 7 B0 “4 548 MOVW UeBsu- mr Tey Te tas? ae Cop  Senei ene 6e copy of TC register to 
OF E1 O9AD 2545 BBC #10$V_INARETRY,- : arent around cies ing of SER bit if 
07 9094 C5 SAF 338 UCBSW_FUNC(R5),1$ : Inhibit RETRY is specified. 
000 8F AB 09B3 254 BISW wMF_TC_M_SER,- ; Set SER bit if INHRETRY specified. 
0086 C5 0987 48 a UCBSW_AF-TC(RS) 
7E AS) =63C «(098A 2550 MOVZWL UCBSW BCNT(RS) ,~ 
14 A3 98D 255 MF _BCTRS) : Coe BYTE COUNT to TM78 repister. 
9BF 255 3 {ce that we set up the byte count 
9BF 255 3 "beateene before the retry label since 
9BF 32 3; the 1M78 retry Logs c sets an appropriate 
9BF 25 ; value in this register which we would 
er 22 3 not not want to reset. 
05 = #00 55 MOVL #MINIMUM_TIMEOUT ; Copy TIMEOUT parameter to UCB 
00co ¢5 2? UCBSL_MF “TIMOUT (AS) ; for safe keeping. 
: 
36 
6 
36 


50 0? ; 

50 00010000 8F oD 
3 

D 

1 


904 XXZ: 
51 7E AS D4 MOVZWL UCB SW BCNT(RS),R1 3; RI contains buffer size. 
51 50 908 6 CMPL 3; Insure count not > buffer. 
04 90B 256 BLEQ thks > LEQ 7 Me within buffer size. 


Vetus 

MOVZWL R1,MF_BC(R3) 

BSBW _ LOAD_MBA_REGISTERS 

MOVZWL UCBSU_ME_CS1(R5) = 
CBSL-MF— 


U att ti 
MOVZWL UCBSY 


XX27: 


DSBINT 
PRIOR_TEST TMRDY 
BBS #UTBSV a's, 


Mat 34 w_STS 
MOVZWL UCBSW"MF C 
WFIKPCH 4$7UCBSL_MF_TIMOUT(RS) 
POST_TEST_TMRDY 


rPPoOooowowowowowoooooooooo FD 


Q 
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MOVL me pIS(R3)R 

EXTZV vbr ee 
peu “13 -§ “pTIC.- 
R2,R2 ~ 

CMPB ss #HEC_NOT_RDY,R2 

BNEQ 2 

BISW 


#UCBSM_MF REWIND,= 
‘ UCBSW_BEVSTS(RS5) 
AWAIT MANUAL REWIND 


4 

5 

06 

7? 2%: BSBW SAVE_TM78_REGS 
608 SBW SAVE_MBA_REGS 
208 ]OF ORK 
611 BFC #UCBSV_POWER,- 
61g ycasu. STS(R5S ,6$ 
61 RB $ 
614 3$ ENBINT 
615 4$ SETIPL UCBSB_FIPL(RS) 
616 BSBW VE_ABA_REGS 
617 5$ BSBW TIMEGUT POWERFAIL 
618 BRW EAD_BLOSK_EXIT 
619 6$ EXTZV #MF_TS_V_DTIC,- 
620 #MF-IS"S"DTIC,- 
621 UCBSL_AF-1S(R5) RO 
$58 
624 ; The interrupt code is in RO. 
953 : 
626 
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; If buffer smaller, update device reg. 
Call to set MBA registers. 


Record Hardware command about to 
become the CURRENT command. 


Copy control rare £9 T™M78 register 

CE that this - 78 rogteser is set 
“etter the RETR Y label since there is 
a field in this register that we may 
wish to reset before the resryg oper- 
ation. This field is the RECOR 
COUNT field which is set to zero if 
we attempt a READ OPPOSITE. 


Stop interrupt 
Assure that n7a ready. 

Make sure we have not "luet had a 
power failure. 


; Copy command to 1TM78 register. 


Assure that 1M78 ready. 


Copy interrupt status to available reg 

Here we extract the interrupt code 
from the interrupt status returned 

by the TM78. 

Test for MANUAL REWIND or LOADING. 

If neither 5 the above, branch around 
If in the middle of manual REWIND, 
then set RecA riate bit 

Branch to RELEASE CHANNELS, wait for 
rewind or load to finish, and then 
restart the 1/0 operation. 


Save copies of data transfer registers 
Save copies of MBA registers 
Lower IPL. 


Make sure we have not just had a 
power failure 
Branch around if we had POWERFAIL. 


Save copies of MBA registers 


— we extract the interrupt code 
rom the interrupt status returned 
by the TM78. 
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PAAAAAAAASAAAASO 
OOOO NNN NNO 


WR SOONG IFS WN O00 


=SEP=1984 
#HIC DONE ,RO 
#MF_IS_V V.DIEC.= 


Aucose SOFT - °° 
Suns vsi 

pert 
C_READ_OPP,RO 
set REC,RO 
$B_CEX(RS),- 


sue nf TEST RSD 


-CcCc-2—2-—232 9OC2O0C 
AoooxruVr«csertr MOC 
*83 == 


READ_TAT,R1 
RO, TAT_HIC(R1) 
TAT_HIC(R1) 
TAT_LENGTH(R1),R1 
208 
tat V_ERRLOG,- 
TAT_FLAGS(R1) .50$ 
DEVICE_ERROR 
Tat SOFT_STAT(R1) 
TAT_DEVDEPEND(R1) 
UCBSL_DEVDEPEND+2 
#MT$v 
TAT DEVDEPENDCRY), 55$ 
UCBSL AR D(RS) ° 
jepse CSE eae 


#TAT_V_POSITION 
TAT _FLAGS(R1) ,70$ 


#103V 
ges 


RO 
(R5) 


~REVER FE, 
UCBSu” FUNC (RSS 
UCBSL “RECORD(RS 


UCBSL_RECORD(R5) 


#TAT 
TAT FLAGS(R ni 


80$ 
UCBSL_MF_B ), 


15,08 


Tee f 


Pete Se Ge Ge Se Se Se Ge 


: Tf NOT, branch around. 


Extract Data Transfer Failure Code 
f we had a DONE interrupt code. 
And put this failure sae in R 


EQL implies no failur 


eaeregee oe to oe “ERROR that we had 
Do EXTENDED SENSE and log device error 


; See if the HIC must be handled 
outside the Transfer ae Table 


logic. Those HIC's 


handled apart are Setay READ_OPP, 

and SHORT_REC (the latter only in 
the case that the Last thing done 
Therefore ihe the 
= RETRY or READ_OPP 
SHORT_REC and UCB 
the current command, we branch. 


was a READ rs 


zz 

pearans 

aon 
“uu 


R1 => Read Transfer Action Table. 
See if current HIC ag TAT entry. 


If so, branch out of 


: See if we ran off end rg table. 
; EQL implies End of Table. 


Ri => next TAT entry. 
Loop back. 


Branch around if NO error logging 


for this condition 


Do EXTENDED SENSE ond log device error 


Copy status to RO for user 
Set the appropriate bits in UCB for 


the current HIC. 


If we are NOT at BOT, then we 


branch around. 
Else we update position 


And we are definitely mat LOST 


anymore. 


See if the tape position wneester 


should be updated. 


A reverse operation implies decrement 
while forward motion means increment. 
Increment when we read forward. 

Branch around decrement. 


Decrement when we read backward. 
Branch around if we should NOT return 


the byte count of data transferred. 
Return the number of bytes 


AX/VMS Macro v04-00 
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See if we received DONE interrupt code. 
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VOeeO08 READ_OR_WRITECHECK_BLOCK ioe 1 98:08:43 DRIVER. SRCITFORIVER.MAR; 1 - (1) 
50 10 10 AE e : 80s #16,416,R0 ; transferred in the high word of RO. 
03 €1 OAE9 26 : "BBC #TAT_V_PREVIM, = ; Branch around if we should NOT 
14 05 Al AEB 26 TAT_FLAGS(R1),100$ 3; _update PREVTM. 
EO OAE 6 8 BBS #1OSV REVERSE - ; See if operation is reverse. 
09 OO9A C AF 6 UCBSW_FUNC(R $908 ; And if so, branch to put negative 2. 
008 ee DO OAFS4 2690 MOVL UCBSL-RECORD(RS5) - 3; Copy current tape position to PREVI. 
00c8 ¢ AFB 2691 UCBSL_MF_PREVTM(RS) ; 
11 rt $36 908: BRB 00$ ; Branch around reverse motion actions. 
00c8 cS) —(02—StséCC are eae eres MNEGL #2,UCBSL_MF_PREVTM(R5) ; Indicate unknown previous TAPEMARK. | 
7D 232611 $B0s $38 "BRB READ_BLOCK_EXIT ; Branch around to exit. 
Oeoc S698 1408 | 
06C6 30 SB0e 699 "  BSBW DEVICE_ERROR ; Do EXTENDED SENSE and log poole 5 error 
01 FO 0B07 2700 INSV #i,- ; Set RECORD COUNT to 1 inc 
02 0B09 2701 int -TC_V_RC,= ; had been reset oye a READ OPPOSITE 
06 OBOA Pe aMF-TC -- “RC,- ; in a previous RETR 
0086 C5 pane At UCBSwW_AF-TC(RS) 
iad 3 98 O89 pe MOVZBW ucese ST eee as) 3; Copy primey ag | to template 
FEAC 31 061 707 BRW READ WOR ITECHECK RETRY : Re hOB back ay retry. 
0818 3709 1508 | 
0682 30 0818 ay "  BSBW DEVICE_ERROR ; Do EXTENDED SENSE and log device error 
51. 0150 CS 00 0818 ie MOVL UCBSL_MF_BC(RS) ,R1 ; R1 = best guess as to record length. 
7EA5 51 B81 0820 271 CMPW sR, UCBS$wWBCNT (RS) : See if larger than buffer. 
11 1A 0B24 2714 BGTRU 176$ : If so, branch around. 
0B26 2715 ; Here we attempt a READ OPPOSITE. 
OOFC 8F AA OB26 2716 BICw #MF_TC_M_RC,- ; Clear the record count prior to READ 
Boas C5 OB2A 2717 UCBSwW_AF-TC(RS) ; OPPOSITE. 
0093 cS) (9B pee? 718 MOVZBW att: ~CER(RS),= : Copy opposite OPCODE to template 
00B4 C5 0831 719 UCBSW-MF_CS1(R5) 3 op CSR in UCB. 
FE8D 31 te 239 BRW READ -ORITECHECK_RETRY ; And Level back to retry. 
0837 733 ; Here if record too long for READ OPPOSITE 
06 EO 0B37 2724 BBS #10$V =REVERSE «= : See if we are doing REVERSE operation. 
06 009A C¢ 0839 2725 UCBSW-FUNC(R5S ,173$ : And if so, branc 
0080 €¢5) 06 OB3D 2726 INCL UCBSL “RECORD(R5) : it FORWARD, increment position count. 
06 = «11 Oat i f BRB 176$ ~ ; And branch around. 
0080 cS) s(«é7 ri 4 , DECL UCBSL_RECORD(R5) ; Decrement count for REVERSE movement. 
red 731 DSBINT ; HERE WE GET TH ye TO STOP ERROR RETRIES | 
pBe0 7 § PRIOR_TEST_TMRDY ; Assure that TM78 read ys 
50 54 a5 3 56 27 mov2uC UCBsu UNIT(RS),RO ; RO = unit number of this drive. 
0 C $824 734 VZWL “NOP GO BT - ; Move NDT NOP command to NDT command 
30 A340 5c 2735 6(R3) CRO) : register 
SF 27 § ur IKPCH me ND PRINIMUM. TIMEOUT : Should be immediate. 
69 7 POST_TEST_TMRDY ; Assure that TM78 ready. 
rs 3 1OF ORK 
7 740 SETIPL UCBSB_FIPL(RS) ; Lower IPL in case of TIMEOUT. 
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50 008C BF 3C 7C 2741 MOVZWL Bess _DRVERR,RO 3; Indicate drive error. 
! reg READ _BLOCK_EXIT 
1 744 SUBPUSH RO 3; Save RO on SUBSTACK. 
B8B 2745 
B og RELCHAN 
00p0 ¢S) —(01Sts«é# 91 2748 CMPL #1 UCBSL_RECORD(RS) :; See if after first record. 
17 ‘12 0896 149 BNEQ  196$ : If NOT, branch around. 
O98 751 EX_NDT_CMD CMD=SENSE,- ; If so, Execute a SENSE command 
89 138 TIM COUT SAINI RUA TIMEOUT ~: which should not take much time 
4 P37 ERROR_LABEL=19 ; to determine density. 
50 01 91 OBA? 2755 CMPB #HIC_DONE,RO ; Was it successful? 
03 12 OQOBAA 2756 BNEQ 190$ :; If not, branch to ign 
0838 30 OBAC 757 BSBW RECORD_SENSE_INFO 3; Update UCB fields w th. Latest data. 
OBAF 2758 190$: 
OBAF 759 SUBPOP RO ; Likewise RO. 
0BB9 2760 
0BB9 761 SUBRE TURN 


< 
RS 
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VOen OO WRITE TRANSFER ACTION TABLE =-SEP-1984 2 88: 08: }3 LORIVER. SR SRC iG SRIVER.MAR: 1 henge 
+! PO} -SBTTL WRITE TRANSFER ACTION TABLE 
C 765 ; WRITE_TAT = the following table is used by subroutine WRITE_BLOCK to 
BC £66 pr “determine the actions it should take as the result of the Hardware 
BC 767 ; Interrupt Code (HIC) that occurs after epecut ing 8 a 1478 write 
BC £68 ; command. The TAT (Transfer Action Table) contains an entry for 
Oat 1gF ; each possible HIC that could be generated by a WRITE command. 
OBC3 2771 ° 
4! ag: WRITE_TAT: 
pee 774 TAT_ENTRY HIC_DONE,SS$_NORM 
pecs 716 BOSTTIONZYESTCOUNTS YES 
OBCD 277 TAT_ENTRY HIC_EOT,SS$_ENDOF TAPE ,- 
OBCD 2778 DEVBEPEND=MT$M _EOT,- 
SBC 740 POSITION=YES, COUNTS YES 
08D7 781 TAT_ENTRY HIC_FPT,SS$_WRITLCK,- 
44 o¢ DEVBEPEND=MT$M_HWL 
OBE1 2784 TAT_ENTRY HIC_ERROR,SS$_DRVERR 
994 ree POSTTION=YES,ERRLOG= YES 
OBEB 787 TAT_ENTRY HIC_BAD_TAPE,SS$ DRVERR, - 
OBEB 788 POSTTION=YES,E RRCOG=YES 
OBEB 789 SUBCODE E RUTSGAD. TARE “SUBROUT 
OBFS 2791 TAT_ENTRY HIC_EOT est SS$_DRVERR,- 
OBF 5 $f38 DEVBEPERD=MT 
BFS 193 POSITION= YES" sPabtoge =YES 
OBF F 795 TAT_LENTRY HIC_NON_EX,SS$_NONEXDRV,- 
pore oe ERRCOG=VES és 
0Cc09 798 TAT_ENTRY HIC_NOT_AVAIL,SS$_DRVERR,- 
pce 2799 ss ERRCOG=VES —— 
Oct3 B0¢ TAT_ENTRY HIC_OFF_LINE,SS$_MEDOFL 
0C1D 80 TAT_ENTRY HIC_TU_FAULT_A, Sse pape 
0C1D 804 DEVBEPEND=MTSM_ 
pcp 805 ERRLOG=YES 
bc 7 B09 TAT_ENTRY HIC_TM_FAULT_A, ase CTRLERR,=- 
C27 08 DEVBEPEND=MTS$M_LOST,- 
Bc f % ERRLOG=YES 
0C31 2811 TAT_ENTRY 0,SS$_CTRLERR ; END OF TABLE. 
oc31 Big DEVDEPEND=MT3h_ LOST,- 
0c31 81 ERRLOG=YES 


ao 
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‘ 4 13 -SBTTL WRITE_BLOCK 
: 4 7 ; WRITE_BLOCK = internal subroutine to write a block. 
C38 i§ 3; INPUTS: 
: : y 3 IOSV_INHRETRY in UCBSW_FUNC is set if we should inhibit RETRY 
bc 4 § 3 RS => UCB 
+5 8 4 ; OUTPUTS: 
C38 > 3 
BES ise 
0c 4 8 WRITE_BLOCK: 
0c ? 9 SUBSAVE ; Save return point on the SUBSTACK. 
0C4 830 REQPCHAN ; Allocate the 1M78. 
53 54 DO OC4B o3) MOVL R4,R3 3 ce y so that R3 => ™™78 CSR. 
Beet 8 § REQSCHAN 3; Allocate MBA. Returns R4 => MBA CSR. 
50 31 QA 0C54 Ht MOVZBL #F WRITE_PE!GO_BIT,R : Load write 1600 BPI command to RO. 
00BA C5) «95 «(0C57 «2834 TSTB —sUCBSB_M E-PE NST ITER. : Zero implies 1600 BPI on tape. 
0c5B 2835 ASSUME ME Sk SSENSITY® 1600 Ea 0 
93 13 OC5B 2836 BEQL ; Branch if it is indeed 1600. 
50 3 OA $343 tH 108 MOVZBL #F_WRITE_GCR!GO_BIT,RO ; Else load write 6250 BPI command in RO 
0084 ¢5) 3 6550~—s—s« BO. pcee 63s MOVW RO,UCBSW_MF_CS1(R5) ; Remember command in UCB. 
0088 ¢5S) «680 «2(0C65 «= 28841 MOVW UCBSW_MF_TMPLTC(RS),- ; Copy r“UEB werd copy of TC register to 
00B6 C5 0C69 ot6 UCBSW_MF- TC(R ay $ er 
OF €1 OC6C 284 BBC #10$V_INARETRY ; Branch around setting + sen bit if 
07 OO9A C5 ocge 844 UCBsu FUNC(RS), “208 3; Inhibit RETRY is see 
8000 8F AB 0C7 845 BISW amr M_SER,=- ; Set SER bit if INHRETRY pe 
00B6 C5 oc76 B46 a veesw. AF -TCCRS) 
05 v0 sae 848 MOVL #MINIMUM_TIMEOUT,- ; Copy TIMEOUT parameter to UCB 
00c0 ¢5 C7B 2849 UCBSL_MF ~TIMOUT(RS) : for safe keeping. 
7E AS 3C OC7E 2850 MOVZWL UCB$W-BCAT(RS),- : 
14 A3 pce a3! MF_BCTR3) ; Copy BYTE COUNT to TM78 register. 
00B6 C5 3¢ oes HL MOVZWL Wrote MF_TC(RS),- : 
08 A3 ace? S3 nate eaves TCTR3D ; Copy control info to TM78 register 
O11C 0 of 9 $28 “  BSBW LOAD MBA. REGISTERS ; Set MBA registers. 
00B4 C5 C Oc8C 285 MOVZWL UCB$O_MF-CS1(R5S),- ; Record Hardware command about to 
0180 C5 C9 28 UCBSt nF CMD(R5) : become the CURRENT command. 
AA 0C9 5 BICW #<MT$A_BOT!- ; Clear beginning of tape and, 
C94 2860 MTSM_EOF !- ; End of File and 
C94 2861 HE sas : End of Tape 8 
C94 66 MTSM"H 3; Hardware Fy Lock 
46 AS OOF C94 6 UCBSL *BCVDEPENDS2(RS) 
C97 64 DSBINT 3; Stop intorruet ; 
C9D 65 PRIOR. TEST_TMRDY 3; Assure that IM 8 read 
05 €0 OCA 66 BBS #UTBSV_POWER,- ; Make sure we have not "test had a 
42 64 AS CA 6 UCBSW_STS(R55 ,40$ $ power failure. 
00B4 C5 3c ~OCAB 286 MOVZWL UCBSUTAF CS1 (RS) -~ 
63 CAF § F R3) ; Copy command to TM78 register. 
cB0 0 UF IKPCH 508 ,UCBSL_MF_TIMOUT(RS) 
cBCc 71 POST_TEST_TMRDY ; Assure that 1TM78 ready. 
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cc 7 
52. 04 A3 00 ae 7 MOVL MF_IS(R3),R2 ; Interrupt status to available register 
0O EF OCC 74 EXTZV #MF_IS_v_6TIC,- ; Here we extract the interrupt code 
; 33 t, o? or S_S_OTIC,=- ; prom, the gterrups status returned 
: e . 
35 0 91 OCC 7 CMPB #HIC_NOT_RDY,R2 : Test for manual REWIND or LOADING. 
07 is CD 7 BNEQ : If neither of the above, branch around 
01 A CD 7 BISW #UCBSM_MF_REWIND,- : If in the middle of manual REWIND, 
68 AS CD 80 UCB$wW_BEVSTS(RS) ; _then set appro riate bit. 
O65F 31 OCD 881 BRw AWAIT_MANUAL_REWIND ; Branch to RELEASE CHANNELS, wait for 
OCDA § 3; rewind or load to finish, and then 
ihe ? : restart the 1/0 operation. 
0A71 3 OCDA 5 308: BSBW SAVE_TM78_REGS ; Save copies of data transfer registers 
OABA 0 OCDD 36 SBW SAVE_MBA_REGS ; Save copies of MBA registers 
Bcee +H 1OF ORK ; Lower IPL. 
E1 OCE6 2889 BBC #UCBSV_POWER,=- ; Make sure we have not just had a 
12 64 AS OCE8 2890 YCBSW_STS(RSS ,608 t power failure. 
11 OCEB 2891 BRB $ ; Branch around if POWERFAIL. 
OCED 444 40$: ENBINT 
OCFO 2895 50$: SETIPL UCBSB_FIPL(RS) 
OA73 30 OCFS 2894 BSBW A A_R ; Save copies of MBA registers 
017C 30 OCF? 2895 55$: BSBW TIMEOUT POWERFAIL 
0072 31 OCFA 2896 BRW WRITE_BCOCK_EXIT 
00 EF OCFD 2897 60S: EXTZV -#MF_IS_V_DTIC,- : agein we extract the interrupt code 
06 OCFF 2898 F_IS_ S_DTIC,=- ; from the interrupt status returned 
50 0140 ¢5 0D00 2899 UCBSL_MF-1S(R5),RO by the 178. 
0004 2900 
0004 2901 ; , 
0D04 O08 3; The interrupt code is in RO. 
0004 2905; 
0004 2904 
50 01 91 QD04 2905 CMPB #HIC_DONE ,RO ; See if we received DONE interrupt code. 
12 12 QD07 2906 BNEQ 65$ : If NOT, branch around. 
OA EF OD09 2907 EXTZV #MF_IS_V_DTFC,- ; Extract Data Transfer Failure Code 
06 OD0B 2908 F_IS S_DTFC,=- 3 we had a DONE interrupt code. 
51 0140 C5 ODOC 2909 UCBSL_MF-1S(R5),R1 ; And put this failure code in R1. 
09 = «13 $03 910 BEQL $ ; EQL implies no failure. 
0100 8F A8& D1 911 BISW #UCBSM_MF_SOFT_ERR,- ; Indicate to DEVICE_ERROR that we had 
68 AS oo 18 316 uCBSW_BevSTS(R5) 3 a soft error. 
0482 30 p18 3 “ss BSBW DEVICE_ERROR ; Do EXTENDED SENSE and log device error 
50 12 91 ODIB 2915 CMPB #HIC_RETRY,RO : Should we attempt a retry? 
06 3 0D1 218 BNEQ 0$ : If so, branch around. F 
O4AA 3 Op 31 BSBW DEVICE_ERROR : Do EXTENDED SENSE and log device error 
FF63 = 51 op ; 319 BRW WRITE RETRY ; Branch back to try again. 
D26 2921; 
op 6 29 § ; Here we use the WRITE_TAT (Write Transfer Action Table) to determine the 
: g Z 3 actions to take as a result of the WRITE COMMAND we have just executed. 
D26 2925 
D26 29 § 70$: ‘ 
51 FESO CF 9E 4 : 4 5 80s MOVAB WRITE_TAT,R1 ; R1 => WRITE Transfer Action Table. 
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CMPB RO, TAT_HIC(R1) See if this TAT entry corresponds to 
Pe current Hardware Interrupt Code. 
BEQL 100$ If so, branch out of loop. 
TSTB = TAT_HIC(R1) Test for end of teoie, 
E EQL implies End of Table. 


R1 => next TAT entry. 
And branch back to Loop start. 
here, R1 => correct TAT entry. 
Branch around if NO error logging 
for this condition 
; Do EXTENDED SENSE ond log device error 


; Copy status to RO for us 


BEQL 
MOVAB TAT _LENGTH(R1),R1 
80$ 


100$: 

BBC erat V_ERRLOG,- 
TAT_FLAGS(R1),110$ 

BSBW DEVICE_ERROR 


Bete Se Ge Ge Ge Ge Ge Ge Ge Ge 


110$: 


TAT-DEVDEPEND(R1).- 3 Set the appropriate bits. ta UCB for 
CBSL_DEVDEPEND+2(R5) : the current 
BBC T_0_POSITION,- : See if the tape position indicator 
TAT_FLAGS(R1) ,120$ : should be updated. Branch if not. 
INCL ucBSL ~RECORD(RS) : Increment since we always write forward. 


120$: 


BBC #TAT_V_COUNT,=- Branch around if we should NOT return 


TAT FLRGS(RI 13 : the byte count of data transferred. 
INSV ycest oetagyn ; Return the number of byt 
1308 #16, HT6, RO’ 3 transferred in the high vere of RO. 
" TS$TL —-—- TAT_SUBCODE_RUT(R1) : Is the subcode nonzero 
BEQL 1408 ; If EQL then zero 


; The following code is here to relocate the ppérees stored in TAT_SUBCODE_RUT 
; to be the real address of the routine to ca 


PUSHAB TFSDDT 


ADDL TAT SUBCODE_RUT(R1), (SP) 
JSB a(sP)+ 


40$: 
: WRITE_BLOCK_EXIT: 


SUBPUSH RO ; Save RO on SUBSTACK. 
RELCHAN ; Release all channels. 
SUBPOP RO ; Likewise RO. 
SUBRE TURN 3; Return to caller. 
BAD_TAPE_SUBROUT: 
EXTZV #MF_IS_ V_DTFC,#MF_IS_S_DTFC,- ; Get the subcode 
UCBSL_AF-1S(R5), 
CMPB Es MHF C_EOT7R1 ; IF NEQ then not EOT subcode 
BNEQ 10$ ; No need to handle it 
an BISL #MTSM_EOT,UCBSL_DEVDEPEND(RS) ; Else set EOT in UCB 


a — ee 
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DA 983 -SBTTL LOAD_MBA_REGISTERS 

DA 984 

DA 985 

DA 9 § ; LOAD_MBA_REGISTERS 

DA 987 ; 

DA 988 ; INPUTS: 

DA 989 ; R3 => TM78 CSR 

DA 990 ; CBSW_MF_CS1(R5) = HARDWARE OPCODE FOR DATA TRANSFER 

DA 991 ; UCBSW-BOFF(RS) = BYTE OFFSET IN PAGE OF TRANSFER 

DA 4% ; -BCTR3) = BYTE COUNT 

ODA 993 ; R4-=> MBA CSR 

ODA 44 3 it is assumed that both channels are owned. 

DA 996 ; OUTPUTS: 

ODA 997 ; MBA MAP REGISTERS AND MBASL_VAR ARE LOADED. 

ODA8 2998 ; Note this internal subroutine does NOT do a SUBSAVE upon entry and a 

ODAB 2999 ; SUBRETURN at exit since it is assured that it cannot lose control 
ODA8 3000 ; during its execution. It can therefore use the normal stack to 

goAe ; save its return point and temporary variables. 

ODA8 
Boag LOAD_MBA_REGISTERS: 

08 AS «800 «(D2 «ODA8 MCOML #0,MBASL_SR(R4) ; Clear MASSBUS adapter errors. 

=o LOADMBA ; Load MBA map registers. 
0DB 
008 The following section of code was put here to correct a timing glitch that 
0DB introduces erros on systems where the TM78 is connected to the MBA by 
0DB a MASSBUS cable less than 100 feet in Length. The problem occurs in 
0DB writing odd length records. ppperensly the MBA shuts down before 
0DB2 erenateey 10 the last byte. The work around is to load the MBA byte 
0DB count register with a count one greater than the desired transfer 
0DB sengre. The TM78 byte count register still contains the correct count. 
0DB If this incrementation of the transfer length sepeens to overflow the 
008 apparent transfer to a new page, then this must be handled by providing 


a valid MBA map register value in the Gurrentty last position (i.e. the 
one with the invalid entry) and by moving the invalid value down one 
slot. Since the contents of this new last entry is not pertinent, (i.e. 
it only needs to be valid so as to not cause an invalid access) we 
merely replicate the current last valid value into the new last position. 
ALL of this is, needless to say, extremely ugly!!! 
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DB 
51 14 A3 Ops MOVL MF_BC(R3),R1 ; Get byte count from TM78 register. 
51 51 3C QDB6 MOVZWL R1,R1 ; Erase high word of register. 
41 51 ODB9 BLBC R1,20$ ; If EVEN yye count branch around 
DBC 3; _timing glitch workaround. 
31 91 ODBC CMPB #F WRITE_PE!GO BIT,- ; If ODD byte count, see if a WRITE 
0084 C5 DBE CBSW_MF-CS1(R5) > operation at 1600 BPI. 
9 13° ODC1 BEQL 0$ sit yes WRITE branch. 
3.6 (91 444 CMPB #F ya Te Gch: 60 BIT.- ; Still ODD byte une see if WRITE 
00B4 cS DC CBSwW_MF-CS1(R5) 3 operation at 6 BPI. 
. ae 451 108 BNEQ 0$ : If NOT write of any kind branch. 
DCA ; If here we have an ODD byte count on 
DCA a WRITE operation 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
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APE DRIVER 
RS 


MOVZWL 
ADDL 


16-SEP-19 
“SEP=19 


UCBSW_BOFF (RS) ,RO 
R1,R0 


R1 

R1,MBASL_BCR(R4) 

#0,49,R0,#0 

40$ 

#-9,R0,RO 

MBA$L_MAP(R4) 
MAP 


R1 


MBASL_MAP( 
40$ 


#F READ _REV!GO BIT,- 


CBSu_MF_¢S1(RS) i 1s 
#F_WRITE_CHECK_REV!GO_BIT,- ; 
UCB$W_MF~CS1(R5) : Is 
40$ ; If 

7) 


R1 
R1,MBASL_VAR(R4) 


CROJ,R 

1, MBASL 4 (RGST 
MBASL_MAP-4(R4) CRO 
R4)CRO 
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Page 68 — 
’ (1). 


We must determine if we will overflow 


: onto a new 
3; RO contains 


increment. 


entry. 


a REVERSE read? 
branch. 


page by bumping count. 
virtual address of 
last byte of transfer including 


Increment count to next higher even. 
Move incremented negated count to MBA. 


; If overflowed, then low order is zero. 
; If not zero, then ok, so branch around 
; Get # valid MBA map registers used. 

; Get invalid map register value. 

; And move it up one position. 
; Now get last valid 
; And also slide it up one slot. 
; And branch around rest since we 
; know that we have no REVERSE. 


R1 contains transfer byte count. 


t a REVERSE writecheck? 
NOT, then skip around 
ince MBASL_VAR is ok. 


; Decrement transfer byte count. 


; Calculate ending address of buffer 
; for REVERSE operation. 


; Return to caller. 


| 
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INTERNAL_SPACE = subroutine to space the tape one position. 
INPUTS: 


a 


o 
4 
m=z 
za~ 
zo 
>™ 
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UCBSB_FEX(R5S) = contains hardware command; either F_SP_FWD_REC!GO_BIT or 
F_SP_REV_REC!GO_BIT 
OUTPUTS: 
RO = success or failure code. 
UCBSL_RECORD is updated if the tape is moved. 


INTERNAL _SPACE : 


; Save return point on SUBSTACK. 
o RO. 


SUBSAVE 
50 0092 C5 9A MOVZBL UCBSB_FEX(R5),RO ; Copy hardware command t 


53 24 A500 MOVL —_- UCBSL_CRB(RS) ,R3 : R3=>TM78-CRB. | 
ASSUME IDB$L~CSR EQ’ 0 

53 2¢ B30 MOVL  @CRBSC_INTD+VECSL_IDB(R3),R3 —-;-_ R3=>TM7B-CSR. | 
EX_NDT_CMD CMD=RO,- ; Execute space command | 

REP ne position 


EPEAT=#1,- 3; to space one p 
TIMEQUT=#MINIMUM_TIMEOUT,-; which shouldn't take long. 
ERROR_LABEL=50$ 


: HARDWARE STATUS RETURNED IN RO. 


ONNMOM DD OOOO WTS ONE NOG 9 FO 9S OOOO ON SS SPIPIPIPIPIPIPINIPIPINIPININININININD 
PIPIPIMINIMINININS 4 9 9 9  MOOODOOOOOOC DO OOOO OOOO OWWWWOWOWOO NNN 


a a ee a a ee re ae ae ed ed ed oe aed ed ed od aed ee eed eed ed eb’ OOO OOOOOOOCOOCOOCOCOCOO 
BDNAMNE WN @§ O OD NAU EWI 9 OD NAME WIN $$ SO OD NAME WN $0 ODNAUE WN" OOONAU 


50 oO1 91 CMPB #HIC_DONE ,RO : Done successfully? 
1g 12 BNEQ 30$ : If not, branch around. 
1 91 CMPB #F _ SP_REV_REC!GO_BIT,- ; If yes, see if we moved forward or 
0092 C5 UCBSB_FEXTRS) ; backward. 
06 13 BEQL = 10 ; If backward, branch. | 
00B0 ¢ D6 INCL CBSL_RECORD(RS) 3; If forward, increment position count. 
046 «11 BRB : _and branch around. 
0080 C5 7 10$: DECL UCBSL_RECORD(R5) : If backward, decrement. | 
50. (01 C 8 208: MOVZWL 35g 59S _NORAAL .RO 3 Indicate successful spacing operation. 
4 = #11 BRB 0$ ; And branch to exit. 
30$: ; Here if some kind of error. 
0372 30 BSBW DEVICE_ERROR ; Do EXTENDED SENSE and log device error 
50 18 91 CMPB #HIC_TM_FAULT_A,RO ; See if it was a controller failure. 
e? 12 OE BNEQ : If not, branch around. 
50 0054 8F 3C OE MOVZWL #SS$_CTRLERR,RO ; Else indicate controller problem. 
05 =11 ; aoe BRB 50$ ; And branch to common exit. 
50 008C BF 3C 3 MOVZWL #SS$_DRVERR,RO ; Indicate drive error. 
E 50$: SUBRE TURN : 
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«SBTTL TIMEOUT _POWERFAIL 


; TIMEQUT_POWERFAIL = we call here if we have experienced either a TIMEOUT 
of a POWERFAILure. 


INPUTS: 


a => TM78 CSR 
R5 => UCB 


OUTPUTS: 
In the case of TIMEOUT, various things are recorded in the UCB: 


In the case of POWERFAIL, 


PPP Fr OOOO 000088 Ns 
PRIN FBS BDH LN BOM ODD OAAAAA AAA AAA AAA AAA AAA A AAAS 


0 
1 
§ 
4 
5 
; 
9 
4 
5 
; 
8 
9 
? 
§ LENE OYT POMERP ALL: 
: BBC 
; 
8 
9 
0 
1 
5 
4 
5 
; 
8 
9 
0 
1 
§ 
4 
5 
; 


E 1 
E 1 
E 1 
E 1 
E 1 
E 1 
E 1 
E 1 
E 1 
E 1 
E 1 
E 1 
E 1 
OE 1 
43 1 
E 1 
OE 1 
3 1 
E 1 
OE 1 
OE 1 
OE 15 
OE 15 
OE 153 REPOSIT 
01 €1 O€ 15 #UCBSV_MF_POWER,- ; Do NOT enter this reyttne REFURSENEL Y 
01 68 AS OE 15 UCBSW “BEVSTS(RSS, 10$ 3; Branch around only 
05 Be 1 108 RSB ; Return immediately. if RECURSIVE “galt. 
0¢ AB OE 1 BISwW #UCBSM_MF POWER ; Set bit to prevent RECURSIVE entry. 
68 A OE 1 UCBSW_BEVSTS(RS5 sf 
OE 1 SUBSAVE ; return off stack and onto SUBSTACK 
OE 1 RELCHAN ; Release any channels. 
01 AA OE 1 BICW #UCBSM_MF_REWIND,- 
68 AS E 1 UCBSW Devsts (Ro) ; Clear rewind in progress. 
10 aA& OE 1 BISW #<MTSA_LOSTa-16> 
46 AS E 1 UCBSL BEVDEPEND*2(R5) : Set position lost. 
05 €4 OE 1 BBSC HUCBSD 
68 64 AS 3 1 CBSwW sretnss, POWERFAIL ; Branch and clear if powerfail. 
0 EO OE 1 BBS nett) MF REPOS - ; Treat REPOSITIONING voquens as if 
68 A E 1 UCBS$W_BEVSTS(R55,- ; it were a POWERFAIL 
63 E 1 POWERFAIL 
E 1 TIMEOUT: 
O8A9 30 O€ 1 BSBW SAVE_TM78_REGS ; Save ™M78 regs for ERROR LOG 
00000000'°GF 16 4 ' JSB G*ERCSDEVICTMO ; Log device time out. 
54 4 AS D EAB 1 MOVL UCBSL mare a F : R4 => TM78 CRB. 
54 0Aa OD EAF 17 MOVL CRBSL~ : R4 => MBA CRB. 
54 CAS OD 583 17 MOVL ceest sIosvecdt IDB(R4) ,R4 : R4 => MBA IDB 
0406 55 OD EB 178 CMPL 5, IDB$L_OWNER(R3) 3; Are we owners of the MBA, 
25. ti coe 180 BNEQ 3 : If not, branch around. 
54 64 00 £8D 181 MOVL IDBSL_CSR(R4) ,R4 3; R4& => MBA CSR. 
EC 1 § DSBINT 3; We want to abort the operation. 
dO ECé 1 MOVL #MBASM_CR_ABORT!- 
EC 184 MBASM-CR-IE,=- 3; Set abort and interrupt enable 
04 AG) 06 EC7 3185 MBASL Each ) : In MBA control reqi ster. 
ECA 3186 WFIKPCH 10$,4T ; Wait for abort and keep channel. 
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ED4 187 1OF ORK 
EDA 351 8 10$: 
01 DO OQEDA 31 MOVL #MBASM_CR_INIT,= 
04 AG EDC 3190 ReASL CR(R4) 3; Initialize entire MBA. 
04 00 OED 191 MOVL #MBASA_CR_IE,- 
04 A4 EE 13 BASL_CR(R4) ; And enable MBA interrupts. 
4 137 20$: SETIPL UCBSB_FIPL(RS) ; Lower IPL to device level. 
EE 195 TIMEOUT_RETURN: 
EE 138 RELCHAN 3; In case we own the channel(s). 
0¢ AA OEEC 19 BIC #UCBSM_MF_POWER,=- 
68 A 333 138 UCB$W_BEVSTS(RSS ; Clear bit to prevent RECURSIVE entry. 
08 8F AA EF 19 BICW #UCBSA_VALID,=- 
$4 AS EF4 060 UCB$W_STS(RSS : Set volume = SOFTWARE INVALID. 
50 O22C BF 3C OEFS 1 MOVZWL #SS$_TIMEOUT,RO : Indicate final status. 
oete 8 SUBRE TURN ; Return to caller with TIMEOUT status. 
a 04 POWERFAIL: 
FOS 05 RELCHAN ; In case we own the channel(s). 
08 AA OFOB Bg BICwW #UCBSM_MF_REPOS,- ; Clear bit in case also at POWERFAIL. 
68 AS FOD 320 UCB$W_BEVSTS(R5S 
€1 FOF 08 BBC #UCBS$7_VALID,=- 
A F UCBSW $(R5),- 
64 OF11 3209 $w_STS(RSS 
D2 ale TIMEOOT_RETURN 3; If invalid, treat as TIMEOUT. 
ote \ REWIND WAIT=YES,ERROR_LABEL=10$; Here we try to rewind the drive 
FIE 1 3; if we still have vacuum in the 
OF IE 14 : columns. If it works we branch to 
50 O01 91 OFIE 15 CMPB #HIC_DONE ,RO ; .80$. The status is returned in RO. 
OF 21 16 BwEQL 80% ; If it doesn’t work for any reason we 
oF ° i : wind up at 10$. 
F26 19 ; 
; Here we w wait for the drive to be rewound manually. 
: ° 9 H itl it f he dri b d Lt 
F26 3 
0093 C5 94 OF26 : 10$: CLRB UCBSB_CEX(R5) ; Eloor byte we use for message time counter 
53 24 A5 D0 OF2A 4 20$: MOVL UCB$L_CRB(R5S) ,R3 ; R3 => TM78 “ 
F2E 5 ASSUME IDBSL_CSR EQ 0 
53 2C B3 00 o § MOVL @CRBSC_INTD+VECS$L_IDB(R3) ,R3 ; R3 => TM78 CSR 
F 8 DSBINT 
oF? WFIKPCH 30$,#2 3; Waste some time. 
F4 ? 308: SETIPL UCBSB_FIPL(RS) ; Lower IPL to fork level. 
4 ¢ ; Sequentialize access to TM78. 
F5 BwBS § #UCBSV_MF_CNCLP,- : If CANCEL pending set while we were 
36 7 $ UCB$W_DEVSTS(R55,190$ ; resource waiting, branch around to end. 
FSA § DSBINT 3; Here we will as SENSE info. 
38 PRIOR_TEST_TMRDY ; Assure that TA78 ready. 
05 =€4 r6 8 BBSC #UTBSV_POWER,- 
41 64 AS F6B UCBSW_STS(R5S 408 : Branch if another POWERFAIL 
50 54 A5 3C £6 40 MOVZWL UCBSW7UNIT(RSS .R : RO = unit number of this drive. 
09 A OF 4 MOVZBL #F SERSE'GO BIf,- 3; Record Hardware command about to 
0180 ¢5 F74 4¢ UCBSL_MF_CMB(RSS > become the CURRENT command. 
09 «9A OF77 4 MOVZBL #F _SERSETGO_BIT,- 


TED 


B 10 
TEDREYER = 1M78/TU78 MAGTAPE DRIVER oe 1 PY 9 00:08:13 tee Macro V04-00 Page i v04 


TIMEOUT _POWERFAIL “SEP-1984 DRIVER. SRCITFDRIVER.MAR; 1 


30 A340 F79 44 MF_NDTO(R3) CROJ ; Set command in device. 
F7C 45 WFIKPCH 508, #MINIMUM_TIMEOUT ; Wait for interrupt. 
F86 46 POST_TEST_TMRDY ; Assure that 1M78 ready. 
gigs CS) =6DO) OOF BF 4 MOVE UCBSL_MF _NDTA( 3; Copy NDT attention data for this 
184 ¢ F93 48 UCBSL-MF-NDTA_C(R5) : interrupt to stable place. 
if A dO £38 4 MOVL MF teh R3),- 
0158 C r9 30 ssa UCBSL_MF_6S(RS) ; Save pertinent register from SENSE. | 
0S =€4 Ore H BBSC #UCBSV_POWER,=- 
OB 64 A5 FA 5 UCBSW_STS(R5S ,45$ : Branch if another POWERFAIL. | 
FA? 3254 RELCHAN ; Release the channel. 
Od 11 $4 2? BRB 60$ ; Branch around. | 
FAF 3§ 40$: ENBINT 3 We had another POWERFAIL. 
FF5O0 31 pres 28 45$: BRW POWERFAIL ; Branch back to start again. 
eres 60 50S: SETIPL UCBSB_FIPL(RS) ; We timed out on the SENSE. | 
FEE6 = 331 pre? o] BRW TIMEOOT ; Brar.ch back to record TIMEOUT. 
OFBC $3 60$: ; We have the SENSE info. 
00 EF OFBC 64 EXTZV #MF_NDTA_V_NDIC,- ; Extract the interrupt code from 
06 OFBE 65 #MF-NDTA_S_NDIC,- ; the status code returned as a result 
50 0184 C5 OF BF 66 UCBSL_MF METALL IRS? RO ; _of the SENSE command. 
50 01 91 OFC3 67 CMPB #H1C_BONE,R 3 See it SENSE was a success. 
03 13 eee 68 BEQL 5$ ~ ; EQL => yes. 
OOFS 31 eee $° BRwW 170$ 3; If not successful, branch to FATAL error. | 
52 0158 C5 3¢ orce 71 65$: MOVZWL yet eft -PS(R) Re 3; R2 has SENSE info. | 
7132 OF EO OFDO if BBS amr -p 5.V “REW,R2,75$ ; Branch if REWINDING. 
04 2§ OD €1 te 7 BBC amr V-ONL,R2,70$ ; Branch forward if offline. 
1c 5 OA €0 Bree iS 70$ BBS aMF i Vv “BOT, R2,80$ 3; Branch out of loop if at BOT. 
FF46 0093 CS) O01 OF 9D OFDC 6 : ACBB #15,#1 Nh ta cents? -20$; Loop 15 times between operator messages. | 
54 OO'8F 9A OFES 7 MOVZBL wscs gto N,R4 ; Get message number. 
53 Q0000000'GF 9€ OFES8 78 MOVAB gre YSSGL OPR X°R3 ; R3 => operator mailbox. 
00000000'GF 16 OFEF 79 JSB crsy SEL Oran 3 Send message to operator. 
FF2E 31 ore 60 75$: BRWw 10$ ; Go kill some more time. 
OFF Bg 80$: 
FFE Br i Medium on-line and positioned at Bottom Of Tap | 
FF 5: We want to position the volume to its poe ition at the start of t 
43 § 3 current 1/0 operation, i.e. to the pes ition indicated by UCBSL . “ORGPOS. 
FF 8° 
C5 ort 9 90$: CLRL Beat RECORD CRD) ; Clear current tape position indicator. 
01 pees 90 BISW 16> ; Set BOT bit on in UCB field. 
AS FF 91 yy DEVDEPENDS2(R5) 
12 100 38 BICW a<m @-16> ; Clear the fact that we may have 
. é 93 UCBSL ASE USERENDeS<RS) > been lost 
19 1004 95 MOVZBW #F SP_FWD EITHER!GO_BIT,- 
cs : $ 38 1008 UCBSW"MF_ADTCR(RS) ~ : Setup space command template. 
C5 1009 98 "  SUBL3. ~- UCBSL_RECORD(RS) | 
C5 100D 329 UCBsL- MF CORGPOSCRS) , RO ; RO = how much more to space. | 
1011 00 BwEQL : Branch around if all done. 
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1016 1 1058: 
50 OOO000FF 8F D1 1016 § CMPL $623 RO ; See if greater than register Limit. 
0 18 1010 BGEQ 1 93 3 if 23 cong. branch to use count. 
50 FF 8F 9A } 1F Be 1108 MOVZBL #255,R0 ; If count > 255, use 255. 
18 86 ASSUME MF_NDTO_S_CCNT €0Q § ; Assume count field in register is 
1 ASSUME MF_NDTO V_CCNT_ EQ ; _located in high byte. 
00BD ¢5 == 550 30 1% 08 MOVB RO ycese Ar NDTCR+1(R5) ; Complete command template with count. 
OOBC C5 3 09 MOVZWL UCB W_MF_NDTCR(RS),= ; Record Hardware command about to 
0180 C5 1} ; + UCBSL_MF_CMD(R5) ; become the CURRENT command. 
102F \ REQPCHAN ; Sequentialize access to TM78. 
1035 1 BwBS #UCBSV_MF_CNCLP,- 3; If CANCEL pending set while we were 
18 4 3 UCBSW_BEVSTS(R55,190$ : resource waiting, branch around to end. 
1038p 316 DSBINT 
104 1 PRIOR_TEST_TMRDY ; Assure that TM78 ready. 
0S = €4 ee 18 BBSC #UTBSV_POWER,=- 
3F 64 AS 104E 19 UCBSW_STS(R5S 120$ ; Forget it if another POWERFAIL. 
50 54 A5 3€ 1051 3320 MOVZWL UCBSWIUNIT(R5S ,RO ; Pickup unit number. 
oopc cS) 3 «=63C «61055 «3321 MOVZWL UCBSW_MF_NDTCR(R5),- ; Move command template to 
30 A340 1059 33 ; MF _NDTO(R3) CROJ ; device register to initiate command. 
105¢ 33 WEIKPCH 130$,#TU78_MAX_SPACE i Longest space should terminate in 
106A 3324 POST_TESI_TMRDY ; Assure that TM78 ready. 
See 325 ; _less than 60 seconds. 
0168 C5) DO 107 358 MOVL UCBSL_MF_NDTAC(RS) = : Copy NDT attention data for this 
0184 C5 1077 ; 7 UCBSL-MF -NDTA_C(R5) ; _interrupt to stable place. 
W AVE. " ; Save hardware registers for ERROR LOG 
06D1 30 Ira $56 loreen SAVE_TM78_REGS hard i for E 
05 £4 1083 380 BBSC #UCBSV_POWER,- 
0B 64 A5 1085 3331 UCBSW_STS(R5S,125$ : If another POWERFAIL, branch and clear. 
1088 3 RELCHAN ; Else release the channel. 
0D 11 = 108€ 3 BRB 1408 3; _and branch around to continue. 
1938 4 120$: ENBINT ; Enable after pre-POWERFAIL. 
0018 = 31 13e2 5 125$: BRW 150$ ; Branch to restart entire rewind, etc. 
1096 “ 130$: SETIPL UCB$B_FIPL(RS) ; After TIMEOUT on space, lower IPL and 
FEOS 31 45 3 BRW TIMEOOT ; Branch back to treat as TIMEOUT. 
00 EF 109D 40 140$: EXTZV #MF_NDTA_V_NDIC,- ; Extract the interrupt code from 
06 109F 41 #MF _NDTA_S NDIC,- 3; the status code returned as a result 
50 0184 C5 10A0 8 UCBSL_MF-NBTA_C(R5),RO ; of the space command. 
50 01 91 10A4 4 CMPB #H1C_BONE,RO ; See if it is a success. 
08 13 + 4 rt BEQL 160$ :; If EQL, then OK so branch. 
50 98 91 10A9 r CMPB #UACQOFF LINE RO ; See if drive has gone off-line. 
1 12 He r 1508 BNEQ 1708 ; NEQ => some hardware error 
FE54 31 19Ag i BRW POWERFAIL ; We had another POWERFAIL 
! : e9 ; so branch back to try again. 
10B1 7 160$: ; Here we apparently successfully spaced 
1081 : forward a group of records and TAPEMARKs. | 
1081 4 ASSUME OF MOT S CENT EQ | 
1081 5 ASSUME MF_NDTO V_CCNT EQ ; Assume command register format. 
50 O0BD ¢5 9A 1081 $ MOVZBL UCBSW_MF_ADTCR+1(R5),RO ; Pickup number of places spaced over. 
0080 cS) = 50)=Ss C0s«410B6 5 ADDL RO, UCBSL-RECORD(RS) ; Update position variable in UCB. 
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v04- TIMEOUT_POWERFAIL 
FFB 31 se? 58 . BRW 
10BE 3360 1708: 
02 AA 10cF 3361 BICW 
68 A 10¢ 2 
0800 8F AA 10¢ 6 BICW 
64 AS 10¢ 64 
0102 30 10¢ 66 BSBW 
10CB 336 
50 008C BF 3C 10CB 68 MOVZWL 
1000 3369 SUBRETURN 
10DA 3371 180: 
02 AA 10DA 3376 BICW 
68 A 100¢ 337 
10 AA 100 74 BICW 
46 AS 10€ 75 
0800 BF AB 10E2 3376 BISW 
64 AS 1066 337 
oocc cS pO s«10€8 378 MOVL 
00c8 ¢5 10EC 3379 
F040 «631 «10EF «3380 BRW 
10F2 3381 
10F@ 38¢ 1908: 
06 AA 10F2 338 BICW 
68 AS 10F4 3384 
10F6 3385 
10F6 3386 
0800 8F AA 10F6 3387 BICW 
64 AS 10FA 3388 
50 2¢ pO 10FC 3389 MOVL 
0290 31 10FF 3390 BRW 


1 mite tt 9 
-$ 4 


100$ 
#UCBSM_MF_POWER,- 
UCBSW BEVSTS(R55 
#UCBSRA_VALID 
UCBSW_STS(R5S 
DEVICE_ERROR 
#sss _DRVERR,RO 


#UCBSM_MF_POWER,- 
ucesu DevSts(Ro5 


LOSTa-1 
ucest BEVDEPEND* 2S) 
UCBSL-MF_ORGPTM(RS) ,- 


UCBSL MF "PREVTM(RS) 
TF LRESTARTIO 
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; Branch back to continue spacing. 

We had a fatal HARDWARE error. 

; Clear bit to prevent RECURSIVE entry. 
Indicate invalid volume. 

; Do EXTENDED SENSE and log device error 


; Indicate error status. 
3; Return to caller. 


3; Here we have successfully repositioned. 
; Clear bit to prevent RECURSIVE entry. 

; Clear lost position bit. 

3 Indicate VALID volume. 

; Restore value of position of 

; revious TAPEMAR 

3 ranch to restart “1/0 function. 


3 cence pending flag noticed. 


#UCBSM_MF POWER! UCBSM_ MF WON NCLP 


UCBSW_BEVSTS(R5) 


Clear flag oteret ee that we are 
: repositioning AND that CANCEL was 
3; signalled. 


; Set volume software invalid. 
; Set abort status. 
; Branch to end function. 
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no error exit. 
RO = HIC code returned by hardware. 


3 -SBTTL REWIND _ROUTINE 
94 ; REWIND_ROUTINE = routine to rHeeett a hardware REWIND or UNLOAD command, 
: wait for it to be done if | t IOSM_NOWAIT in R1 is clear, and 
$ return the hardware HIC code in RO. If we experience TIMEOUT or 
$ POWERFAIL and the TIMEOUT OPOWERFAIL returns to us we take the 
: error exit. Else we return to 2 beyond the calling address. 
: INPUTS: 
3 RO = Hardware command and GO BIT (REWIND or UNLOAD) 
3 RI =p Tre tsk whose only bit Of interest is IOSM_NOWAIT 
: Re => 
: OUTPUTS: 
; If 


REWIND ROUTINE: 


SUBSAVE 
SUBPUSH R1 ; Save bitmask. 


EX_NDT_CMD CMD= ; Command is in RO. 
tis pecutasTu7s MAX_REWIND,-:; It may take a while. 


ROR_LABEL=30$ ; Where to go if NO GOOD. 


> EX_NDT_CMD returns HIC in RO. 


Pe ae ae ot at nt ot et et ek et ek ek oe he ee ek ee ee ek ee ek ek ek ek ek ek ek ek ee 
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8 et te et a i ts 2 9 2 9 8 ns a 2 a 2 5 a 4 5 5s 2 3 4 ss a ts a sg 


a a ee ee ee a a a a ad 
COO9 NINN NO TTT & B&B AANA AIAN = SS  — OOOO OCOOCOOOCOCOCOCOCOO 


SAF FO OUND OD DW OP ANM FS LM MD AWO OOOO OAAAA ON PIPPIN IPIPIPIPIPOPIPOPUPINPIPOPIPIPNINPD 


CONIA UNE ARS $C OD NAUN EWN 0 OD NAME WIN $0 OD NAME WN OOD NOAUE WW OOONOuU 


SUBPOP R1 3; Restore bitmask 
50 oO7 91 CMPB #HIC_REWINDING,RO ; Did we get REWINDING interrupt? 
BwNEQ ; If NOT, branch aroun 
50 01 9A MOVZBL #HIC_DONE,RO : If YES, change it to BONE for now. 
DSBINT ; If REWINDING ued > interrupts 
PRIOR_TEST_TMRDY > Assure that 78 r ady 
05 «£0 BBS #UTBSV_POWER,- : And then if 10$V NOWA T not specified 
41 64 AS UCB$W_STS(R55,10$ : then wait for DONE interrupt unless 
465 51 6 6G7)hClCOG® BBS #1OSV-NOWAIT,R1,40$ : 1osy NOUAT TO” occurred. Here we test 
00. =«€1 BBC #UCBSV_MF_REWIND,- ; And here we test if DONE has already 
60 68 AS UCBSW_BEVSTS(R5) ,40$ 3 occurred. 
WFIKPCH $08 #TU78_MAX_REWIND ; Here we wait for the DONE interrupt. 
POST_TEST TARDY ; Assure that TM78 ready. 
04c0 )3=—s 330 BSBW” =e TF_UNSOLNT : Record data after interrupt after 
; _REWIND supposedly done. 
4 8 cS oO MOVL UCBSL_MF_NDTA(RS),- 3 Copy NDT ottent tek data for this 
4 si? UCBSL~MFNDTA_C(RS5) : errupt to stable place. 
30 BSBW SAVE _TM78_REGS ; Save Hardware registers. 
4 IOFORK 
05 =£€0 4 BBS #UCBSV_POWER,- : Test for the Last time for 
OC 64 A5 4 UCB$W_STS(R55 ,20$ > POWERFAIL. 
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REWIND 


EXTZV 


SUBPOP 


SUBPOP 
CVTWL 
ADDL 
BRB 
ENBINT 
SUBPOP 


ADDL 
JMP 


10 


1 = 


#MF_LNDTA_V_N 
#MF “NDTA-S-N 


S 
UCBSL_MF_NDBT 
50$ 


UCBSB_FIPL(R5) 


TIMEOOT_POWE 
35$ 
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; Here we extract the interrupt code 


from the register copy deposited 
in the UCB above. 


Branch around. 


Enable potecrusts after POWER bit set. 

Lower IPL if TIMEOUT. 

We had a TIMEOUT or a POWERFAIL, call 
to handle it. 

Branch around the Label where the 
error path from above EX_NDT_CMD 
rejoins the normal flow. 


We are here after in ag ye a 
an error return from EX_NDT_CMD. 
Cleanup bitmask left on Stack. 
Here we had an error in EX_NDT_CMD 
or we experienced return from 
TIMEOUT_POWERFAIL routine. Either 
way we want to effect an error 
return to our caller. 


R1 => our return point. 
Put relative addr of error return onto 
the top of the stack. 


Add in absolute offset. R1 => error return. 


Branch around 


; R1 => return point. 


Adjust to correct return or error address 
Jump to return or ERROR_LABEL. 
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1160 " 5 -SBTTL Device Error Routine. 
11CD 34 . DEVICE ERROR = routine to interface to INVOKE_EXTENDED_SENSE and the 
11CD 34 8 : ERROR LOGGER. 
11CD 3489 ; 
8 3 
11CD 138 DEVICE_ERROR: 
Heb 3494 SUBSA 
11D? 495 SUBSUSH RO,F1,R2 ; Save volatile registers. 
08 ES 1163 496 BBCC  #UCESV_MF_SOFT_ERR,-  : If we NOT only a soft error, branch 
07 68 A 11F7 349 UCBoW_ BevSt $(R5),10$ : around. Else clear bit. 
0 E1 11FA 3498 BBC #MTSV_LOGSOFT,- 3; If oy sort error, branch around if 
OF 44 4A 11FC 3499 UCBSL_DEVDEPEND(R5),30$ ; soft log 991 ng not enabled. 
04 11 #+W1FF 3500 BRB 20$ : Soft logging enabled, branch around 
: SI 204 108 : decrementing of retry count. 
0080 ¢5) «97 ~=1201 208 ; DECB UCBSB_ERTCNT(R5) ; Indicate another error has occurred 
: 82 ape 208 ; on this 1/0 operation. 
002E 30 1205 206 : BSBW INVOKE Pate SENSE 
Q00000000'GF 16 \soe 44 30s JSB G*ERLSBEVICERR : Invoke ERROR LOGGER. 
120E 3509 : SUBPOP R2,R1,RO0 ; Restore registers. 
122C 510 SUBRE TURN 
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! $ 1 -SBTTL Invoke Extended Sense routine 
: ° i : INVOKE _EXTENDED_SENSE = subroutine used to issue an ENTENDED SENSE command. 
1236 316 + INPUTS: 
! ? 318 ; R5 => UCB 
1236 1 : If the channels are owned upon entry th 
1336 3520 : RS => IM7B CSR lace 
1236 3521; R4 => MBA CSR 
: ? : ¢ : else R3 and R4 have random junk that must be preserved. 
12036 3504 : OUTPUTS: 
! ? : 5 : No specific outputs. 
1236 35 : : SIDE EFFECTS: 
: 2 : 8 : The results of the EXTENDED SENSE command are left in the UCB. 
6 3 0 : Registers RO - R2 are destroyed. 
1236 3532 © 
: 36 : 5 INVOKE __EXTENDED_SENSE: 
09 €1 1236 3535 BBC #UCBSV_MF_EXSNS_DONE,=- 3; Never do more than one EXTENDED 
01 68 AS 1238 238 UCBSW_BevSTS(R5),10$ ; SENSE per 1/0 operation. 
05 : = 238 108 RSB ; So RETURN if already done. 
0200 8F A8 158¢ 539 ; BISW sh ng MF_EXSNS_DONE,- ; Set bit to indicate that we 
68 AS 1s48 279 a, w_BevSTs¢ Rey 3 are doing an EXTENDED SENSE. 
124C 236 SUBPUSH + 
; 28 a7 SUBPUSH 
50 24 A5 00 1260 3545 MOVL UCBSL_CRB(RS) ,RO ; RO => TM78 CRB. 
50 2C AO DO 1264 546 MOVL CRBSL~ INTD+VECSL IDB(RO),RO ; RO => TM78 IDB. 
04 AO 55) «D1 «(1268 «(3547 CMPL RS, IDBSL_OWNER(RO) 3; Are we channel owner? 
13 126C 348 BEQL §«=s-«-20 : EQL implies yes. 
126E 3550 REQPCHAN 3 poeurns R4 => TM78 CSR. 
53 54 pd0 1274 3551 MOVL R4,R3 : Copy so R3 => TM78 CSR 
06 11 A 338 pi BRB 30$ ; drench around. 
0400 8F AS 1279 3554 = BISW  #UCBSM_MF_OWNPCHN,- 
68 AS | 20 222 wees UCBSW_BEVSTS(R5) 3; Set bit to indicate ownership. 
50 24 a5 DO 127F 228 "  MOVL =—sUCBSL_ CRB(RS) RO : RO => TM78 CRB. 
50 20 a0 00 1 83 358 MOVE  CRBSL“LINK(ROS ,RO : RO => MBA CRB. 
50 2C AO DO 1287 355 MOVL  CRBSL~ IN AiDeV vec$e I IDB(RO) ,RO : RO => MBA IDB. 
04 a0 =5 D1 1 se 560 CMPL R5, IDB$SL_OWNER(RO) : Are we channel owner? 
08 «13 er 361 Bea. © 40 : EQL implies yes. 
1291 208 REQSCHAN 3; R& => MBA CSR. 
06 «+171 ' of 20 ane BRB 50$ 3; Branch around. 
0800 8F AB 1299 366 "«BISWs MUCBSM_MF OWNSCHN, - ; 
68 AS ' +4 2 508 UCB$W_BEVSTS(R : Set bit to indicate ownership. 
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129F 269 ASSUME UCBSL_SVAPTE+4 EQ UCBS$W_BOFF 
! 44 oy ASSUME UCBSW_BOFF+ EQ UCBSWIBCNT 
78 AS 7D 129F i MOVa UCBSL_SVAPTE (RS) ,- 
0008 ¢5 102A 7 UCBSQ-MF_TEMP(R5S ; Save data in temporary. 
! A? oe SUBPUSH UCBSW_MF_CS1(R5) 3 8 . 
12B1 376 ASSUME UCBSL MF _SVAPTE+4 EQ UCBSW_MF_BOFF 
Bi 37 ASSUME UCBSW_MF—BOFF+ EQ UCBSWIMF-BCNT 
0000 cS) 7D)sSs1281 358 mMOVQ uses _MF scat bade ; Copy parameters needed to load MBA 
78 AS 1 88 250 UCBSL “SVAPTE(R5) i: registers to effect EXTENDED SENSE. | 
38 464698 «(128 581 MOVZBW teka'r XSNS!GO_BIT,- 
00B4 C5 1289 35 § vce WM F_CST(RSS 3: Indicate command about to invoke. 
FAE9 0 12BC 5 BSBW LOAD ABATR REGISTERS 
0088 C5 C 12BF 584 MOVZWL ucesg MF-TMPLTC(RS),= ; Copy TEMPLATE TC to get CMD ADR field 
08 A3 12C3 3585 TCTR3Y ; into hardware register. Other fields 
12C5 289 3; are ignored anyway. | 
12C5 23 
12C5 3588 DSBINT 
05 €0 12CB 3589 BBS #UCBSV_MF_ATIN,=- ; If we got another ‘'B"’ type fault, 
1C 68 AS 12CD 3590 UCBSW BEVSTS(RS), 60$ ; then branch around the EXTENDED SENSE 
05 EO 1200 591 BBS muCESO POWE 
17 64 AS ede 39¢ UCBSW_S TStRSs, 60$ : Branch around if we had POWERFAIL. | 
0084 cS) = 3C:«1205 359 MOVZWL UCBSur ht stSi CRS) - 
63 12D9 3594 CST(R ; Move command to hardware register. 
194 595 ve KPH rOS. #MINIMUM_TIMEOUT 3 Wait. 
12E4 596 IOFOR 
07 11 «#+12EA 3597 BRB 80$ 
12EC 3598 60$: ENBINT 
12EF 3599 708: SETIPL UCBSB_FIPL(RS) : Lower IPL after timeout. 
12F3 3600 80$: 
12F3 3601 
iste one 3 
12F 603 ; Note - We come here under all circumstances. Either the command worked, 
ists 604 ; it didn't work, we had a POWERFAIL or we had a timeout. In the 
1 3 605 ; tiest case (i.e. the command worked) we have the EXTENDED S*NSE 
12F 606 ; date in the UCB. In the other cases we do not have it and we lose 
12F 607 ; all uetesnentan as to why the command failed. 
12F 608 ; 
12F 609 
12F3 610 SUBPOP UCBSW_MF_CS1(R5) 3; Restore 
00D8 C5 7D 12FF 611 MOVQ it ee TEMP(R5S),=- 
78 AS 1 3 $16 ucest SVAPTE(R2) ; Restore. 
0B E&4 1 61 BBSC iret 0_MF_OWNSCHN,- 
06 68 AS 1307 3614 w_BE EVSTe CRS) 50S ; Branch around if we owned the channel. 
1394 615 RELSCHAN- 3; Release channel obtained only for 
1310 3616 ; EXTENDED SENSE. 
1310 3617 90$: 
OA €4& 131 618 BBSC #UCBSV_MF_OWNPCHN 
06 68 AS 131 619 UCBSW_BEVSTS(RS), {008 3; Branch around if we owned the channel. 
131 620 RELCHAN 3; Release channel obtained only for 
131B 3621 3; EXTENDED SENSE. 
1318 ? ¢ 100 
1 8 SUBPOP R4 
1 $ 624 SUBPOP R3 
132F 3625 
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«-SBTTL AWAIT_MANUAL_REWIND 

AWAIT_MANUAL_REWIND 

INPUTS: 


We are at device IPL following a WFIKPCH. 

We have just received an HIC_NOT_RDY interrupt code in response 
to a hardware command inply ing that the drive is undergoing 3 
manual REWIND or LOAD operation. What we do here is simply wait 
for this MANUAL operation to finish before trying to start the 
1/0 operation that was requested. 


We may currently own the primary channel and the secondary channel. 


DDE AA AAA AAA AAA AA AAA AAA AAA A AAA AAAS 


1 
: : 
1339 0 
ae ee 
1339 3638 
1339 4 
1339 8636 
1339 3639 
1339 8 
1339 9 
1339 40 
1339 41 
1339 tg 
1339 4 R3 => TM78 CSR 
1339 44 RS => UCB 
1333 45 
1339 ‘$ 
1339 4 -ENABLE LSB 
1339 48 AWAIT _MANUAL PREWIND: 
1339 49 
1339 50 IOFORK 3; Lower IPL. 
133F 51 RELCHAN ; Release all channels. 
1345 26 DSBINT : Block interrupts 
1368 37 PRIOR_TEST_TMRDY ; Assure that 1TM78 ready. 
05 EO 1354 55 BBS #UCBSV_POWER,- 
27 64 AS 1356 3656 UCB$W_STS(R55 ,10$ : Branch if there has been a POWERFAIL 
00 €1 1359 3657 BBC #ucesd MF_REWIND,- 
2E 68 AS 1358 58 wW_BevSTS(R5),30$ 3 Branch around WAIT if REWIND done. 
135E 59 IKPCH Bo. sHTUyS MAX_REWIND ; Wait for REWIND, LOAD or DSE to finish. 
136C 60 WAITING_ FOR MAN 3 Label of return point for WFIKPCH. 
1396 61 post. teste TMRDY 3; Assure that TM78 r ody. 
02BD 30 1373 o6¢ 52u TF_UNSOLNT 3; Update UCB after Rew! D or LOAD. 
OF 11 4: 664 BRB 40$ 3; Branch around. 
1 rt 665 
13 ° 666 10$: ENBINT 
133 667 20$: SETIPL UCBSB_FIPL(RS) ; Set to fork IPL. 
FAEC 30 1387 3668 BSBW TIMEOOT pyuear alt 3 Call to indicate problem. 
06 11 1334 rei 308 BRB FUNCTIOR_E : If we experience return, goto EXIT. 
1 ec 671 ENBINT ; Enable interrupts if REWIND done. 
1a Bre 0 
EDAO 31 138F 3674 BRW TF_RESTARTIO ; Goto restart 1/0 operation. 
1392 3675 -DISABLE LSB 
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Function Completion Common Exit -SEP-1984 DRIVER SRE arb DRIVER.MAR;1 
! 2 or? -SBTTL Function Completion Common Exit 
: 2 % ; FUNCTION_EXIT = We branch here to terminate processing of a request. 
! 4 ? 1 ; INPUTS: 
139 6 : 3 RO = Final 1/0 completion status in the low word, # ayes transfered 
139 684 ; or records/files skipped in the high word. 
139 685 ; R5 => UCB 
139 6 § 3 
139 6 
: 2 ° 8 FUNCTION_EXIT: 
50 DD 139 690 PUSHL RO 3; Save finet status and count. 
00000000 ' GF 16 1394 3691 JSB G*1OCS$DIAGBUF ILL : Fill dia pqneeste buffer if present. 
6 6 EB 139A 036 BLBS (SP) ,20$ ; LBS implies successful completion. 
54 BA DO 139D 369 MOVL UCBSL_IRP(RS) ,R4 3 R4 => current 1/0 packet. 
04 €1 13A1 3694 BBC #IRPSU_VIRTUAL,=- 
2D 2A AG 13A3 3695 IRPSW_STS(R4) ,c0$ ; If CLEAR, NOT virtual function. 
54 18 AS DO 13A6 3696 MOVL  IRPSL-WIND(R4S RG > R4 => Window Block. 
16 A4 = B4 13AA 3697 CLRW WCBSW_NMAP(R4) ; Clear number 4 mapping pointers. 
54 34 AS DO 13AD 3698 MOVL UCBSL_VCB(R5) ,R4 : R4 => VCB aves ead. 
52 40 aS OSE) 1381 699 MOVAB UCBS{ ~10QFL (RS) ,R2 ; R2 => 1/0 ugue 
53 3¢ DO 61385 00 MOVL R2,R : Initialize R3 => previous entry. 
53 63) «DO s«1388 «63701 108: mov.  (R3),R3 : R3 => next entry. 
52 «53)«Oo=D1s«1388 208 CMPL = R3,, RO : End of List? 
13 13 138 70 BEQL 20 ; EQL implies yes, end of List. 
04 €1 13C 704 BBC #IRPSV_VIRTUAL,- 

F3 - A3 13C 705 IRP$SW_STS(R ), fos ; Clear implies NOT virtual function. 
53 4 AS D0 13C¢ 6 OVL steel os ; Retrieve address of previous entry. 
51 0063 OF 13C9 370 REMQUE @(R3),R1 3; Remove entry from Driver queue - 

0484 61 OF 13CD 3708 INSQUE (R1),a4(R4) : Insert entry in blocked 1/0 List. 
—e5 11 : 4 a4 BRB 10$ 3; Loop back. 
50 8EDO 1 oe 711 20$: POPL RO ; Retrieve final 1/0 status. 
1306 ne STSXIT: 
1306 371 DSBINT 3; No interrupts while we decide whether 
it 43 714 3 3°. clear 
05 €1 130C 3715 BBC #UCBSV_MF_ATIN 3 o 'B"’ type faults pending, branch 
27 68 AS 13DE 216 UCBSW_ BeVSTS(RS), 308s; ps 
135€1 71 ENBINT $ Re-enable interrupts. 
O0E4 C5 9E 13&4 3718 MOVAB UCBSL_MF @SUBSTACK (RS). - ; Initialize egy i K pointer in case we 
O0EO C5 13E8 3719 UCBSL_MF-SUBSP(RS) ; _go here via CANC 
1 Ee 7 ? SUBPUSH RO : Save final 1/0 statis. 
0479 30 15F 7 BSBW ISSUE_TMCLR ; Go try to reset TM 
13F8 37 § SUBPOP RO ; Restore final 1/0 statu 
1408 g Z 305 DSBINT ; Disable to match with contne ENBINT. 
0040 8F AB 140 725 BISW #UCBSM_MF_UCBFREE,- ; UCB fork block now free for asynchronous 
68 AS 140C 37 § UCBSW_BEvSTS(R5) 3; use. 
re 7 ENBINT : Re-enable interrupts. 
51 44 A5 D0 141 728 MOVL UCBSL_DEVDEPEND(R5),R1 ; Set eagtane status and characteristics. 
1415 53729 RECOM ; Complete 1/0 request. 
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~SBTTL TM78/TU78 REGISTER DUMP ROUTINE 


TF REGDUMP = TM78/TU78 REGISTER DUMP ROUTINE 


THIS ROUTINE IS CALLED TO SAVE THE CONTROLLER AND DRIVE REGISTERS IN A 
SPECIFIED BUFFER. IT IS CALLED FROM THE DEVICE ERROR LOGGING ROUTINE AND 


FROM THE DIAGNOSTIC BUFFER FILL ROUTINE. 
INPUTS: 
UFFER. 


OUTPUTS: 


SAVE B 
on REGISTER. 


THE CONTROLLER AND DRIVE REGISTERS ARE SAVED IN THE SPECIFIED BUFFER. 


TF_REGDUMP: 
PUSHR #*M<RO,R1,R2,R3, 
MOVL_  #UCB_REGDUMP.LEN 

MOVC3 #UCB”REGDUMP~LEN ; Copy 
UCBSC_MFMBA_TSR( RO): 

pear #*M<RO,R1,R2,R3, 


3 1M78/TU78 REGISTER DUMP ROUTINE 
5> ; Save registers destroyed by MOVC3. 
RO)+; Copy number of longwords. 
previously saved device and 
( register values and other data. 
5> ; Restore registers destroyed by MOVC3. 
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.SBTTL TM78 CONTROLLER INITIALIZATION 
T™™78_INIT | 


This routine is called via a JSB instruction at eysten ocertys gnd after 
power recovery restart to allow initialization of the TM78 controller. 


INPUTS: 
R4 => TM78B CSR 

RS => IDB 

Re => DDB address 

R8 => RB address of TM78 controller 


; OUTPUTS: 
: The 1M78 is cleared. 


—| ‘ee 


M78_INIT: 


The following code has been put in spect ecothy to test for the microcode 
revision that fixs the EOT problems on the TU78. The intend is to inform 
customers of the problem and when the fix is available to the field then | 
mot allow the device to be configured until the fix has been installed. 


The revision ery is hope in 8 locations within the TM78 controller 
each location must be check for a specific value. 


Set internal address to read only location in the TM78 decides to write 
when ws BL set. 


Sa Sennen Se Bin pe pn Be Se Si Si Bi Bi ie i i Bi i | ine 
5O.09 000909090900 09 09098 SII NI SINISE NNO AA AOOPAOOOOU OT 


SODNA NEW 9 ODNOU EW" QOOODNAULS WOON Wo 


me me ee ee em mt nt od = = = = = a 2 co 
PEEP E PEPER PEPE PPE PEPER PEPPER PPE PPP PP PEPPER PEEP PPP PPP PPE 


OOO ODO 0900 Bi IPP DD I BE NIPPON PIPIPPIPNININYPNPININNIMAMIPINININPIPONPIPONININND 


MOON FODWDOW™T NNVUPUMAWOM VSO VO DOW WOOWVIWOWOOWOWOOOWOWOIWTWOWTOIOOIOONININOW 


50 oD Ss RO 
40 AG sae SEA 3 8F dO MOVL #°03776,MF_IA(R4) 
44 AG 000001 HH C8 BISL t hala Ap M_HOLD.MF_ID(R4) ; Set the hold bit in TM78 
50 00168480 8F 00 791 MOVL #20000007R0 7 Set up to loop waiting for hold ack 
44 AG dp 792 108: PUSHL MF_ID(R4 ; Get register | 
F OD L  #MF_ID_M_HLDA,<SP)+ : If NEQ then bit is set 
8E 00000200 8 79 BIT F_l (SP) f bit i 
nt SS ERE Bh GBF 
OOAB C31 79 BRW 4 : If the device doesn’t ack do not check rev | 
40 AG QOOO007FE &F 4 797 20$: MOVL #°03776 MF jacna 3; Check the first location 
50 44 a4 D 798 MOVL MF_ID(R4),R : Get the revision number 
38 91 79 CMPB RO #REV_LOC_O : If # is less then expected then | 
9 19 39 BLSS 30$ ; do not allow configuration of device 
40 AS OOOOOFFE BF OD § MOVL #°07776 MF pan ; Check the second location 
50 4406 OD MOVL  MF_ID(R4),R : Get the revision number 
05 50 9 4 CMPB 88 #REV_LOC_1 i; If # is less then expected then | 
68 19 5 BLSS 30$ ; do not allow configuration of device 
40 A4 opgotrrs 8F 4 ; MOVL #°013776,MF_IJA(R4) 3; Check the third location 
5 44 AG 3 3 MOVL MF_ID(R4S RO ; Get the revision number 
29 1 CMPB RO #REV_LOC_2 : If # is less then expected then 
; do not allow configuration of device 
19 Biss —-_-308 d tl figuration of devi 
40 A4 opporres 8F 4 1% MOVL #°017776,MF_IA(R4) ; Check the fourth location 
50 44 AG p 1 MOVL MF_ID(R4S,RO : Get the revision number 
0 50 1 14 CMPB ROT#REV_LOC_3 ; If # is less then expected then 
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46 19 1338 iF BLSS 30$ ; do not allow configuration of device 
40 AG oppoerts 8F De 149A i$ MOVL #°023776,MF_IA(R4) ; Check the fifth location 
0 44 AG 8 14A2 13 MOVL MF_ID(R4S ,RO ; Get the revision number 
02 20 1 14A6 1 CMPB R0 #REV_LOC_4 : If # is less then expected then 
19 1en3 Y BLSS 30$ ; do not allow configuration of device 
40 AS QOOO2FFE 8F DO 14A § MOVL #*°027776,MF_IA(R4) ; Check the sixth Location 
50 44 a4 00 148 MOVL  MF_ID(R4S,RO : Get the revision number 
03 50 91 148 4 CMPB 8 WREV_LOC_5 : If # is less then expected then 
24 «19 148A 5 BLSS —-30 : do not allow configuration of device 
40 AG QOOO37FE BF 00 14B8C 3 MOVL #°033776,MF_IA(R4) 3; Check the seventh location 
50 44 AG DO 1404 ) MOVL  MF_ID(R4S,RO : Get the revision number 
08 30 91 14¢8 9 CMPB ss RO; WREV_LOC_6 : If # is less then expected then 
1 19 1ee5 4 , BLSS 30$ ; do not allow configuration of device 
40 AG QOOO3FFE BF DO 14CD Be MOVL #*°037776,MF_IA(R4) ; Check the eigth location 
50 44 A4 00 1405 83 MOVL  MF_ID(R4S,RO : Get the revision number 
03 50 91 1409 3834 CMPB RO, #REV_LOC_7 ; If # is less then expected then 
02 19 140C 3835 BLSS 30$ ; do not allow configuration of device 
21 11 rt: 539 BRB 40$ 
BB 1460 3838 30S: PUSHR #*M<R3,R4,R5> ; Save registers 
55 04 A6 DO 14E2 3839 MOVL DDBSL_UCB(R6) ,R5 ; Get first UCB address 
54 00000000°8F DO 1466 3840 MOVL MSG$_TM78MVER,R4 3 +h message number in R4 
53 Q0000000'GF 9E 14ED 3841 MOVAB G*SYSSGL_OPRMBX,R3 ; R3 => operators mailbox 
00000000'GF 16 14F4 og JS G*EXESSNDEVMSG ; Call to send oper mesage 
BA 14FA 384 POPR #*M<R3,R4,R5> ; Restore registers 
03 11 14FC 3844 BRB 40$ ; For FT1 allow device to conf 
002D. = 311 A Be? BRWw 70$ : Do not allow device to configure 
44 AG 00000100 8F CA 1501 3847 40$:  BICL  #MF_ID_M_HOLD,MF_ID(R4) ; Clear hold bit 
44 A4 00004000 8F (8B 1509 3848 BISL #MF-ID“M~TMCLR,MF_ID(R4) ; Start controller clear. 
FA 8F 9A 1511 3849 MOVZBL #250,R0 ; Count to register. 
FD 50 F5 1515 3850 50$: SOBGTR RO,506$ : Waste some time as TM78 
1318 $2) : settles down after clear. 
50 00168480 8F 00 a 538 608 MOVL #2000000 ,RO ; Count to register again. 
44 AG DD 18H 855 : PUSHL MF_ID(R4) ; Push 1M78 register to stack. 
8E 00008000 8F D3 15 3 529 BITL #MF_ID_M_TMRDY, (SP)+ ; See if TM78 has come READY. 
3 '§ 15 85 BNEQ 70$ ; NEQ implies READY, so branch. 
F150 «OF 1 3 839 708 SOBGTR R0,60$ ; Loop waiting for device READY 
50 B8EDO 152E 60 ; POPL RO ; Restore register. 
05 1531 3861 RSB ; Return to caller. 


C 11 
TFDRIVER = TM78/TU78 MAGTAPE DRIVER 16-SEP-1984 00:08: AX/VMS Macro V04-00 Page 86 TF 
Von O08 TM7B-TU78 TAPE DRIVE INITIALIZATION -SEP-1984 88:08:49 DRIVER. SRCITFORIVER.MAR; 1 ° (1). vo 
63 .SBTTL TM78-TU78 TAPE DRIVE INITIALIZATION 
65 ; TM78_TXXX_INIT = TM78-TU78 TAPE DRIVE INITIALIZATION 
1 $$ ; THIS ROUTINE IS CALLED AT SYSTEM INITIALIZATION AND AT POWER RECOVERY TO SET 
3 68 ; DRIVE PARAMETERS. 
13 29 > INPUTS: 
15 if : R3 = ADDRESS OF TM78 DRIVE CONTROL REGISTER. 
15 873 ; R4 = ADDRESS OF MBA CONFIGURATION STATUS REGISTER. 
1 ue : RS = DEVICE UNIT UCB ADDRESS. 
13 ik: : OUTPUTS: 
13 A: ; UNIT PARAMETERS ARE ESTABLISHED. | 
15 80 ° | 
15 +t TM78_TXXX pair 3;TU78 TAPE DRIVE INITIALIZATION 
52 a C3 (15 +f SOBL R4,R3,R2 ;CALCULATE OFFSET TO DRIVE CONTROL REGISTER 
S52 FCOO C2 9E 1536 388 MOVA -MBASL ERB(R2) ,R2 ;SUBTRACT OUT EXTERNAL REGISTER BASE 
0090 C5 52 0080 8F A? 15 ° 884 DIVW #1a7,R2,UCB$B_SLAVE(RS) ;SET ADAPTER DRIVE NUMBER 
0091 ¢S 0090 CS 20 85 13t3 +H MULB3 #1a7/4,UCB$B_SLAVE(R5) ,UCBSB_SLAVE+1(R5) ;SET DRIVE OFFSET CONSTANT | 
08 AG DD 1368 +H PUSHL MBASL_SR(R4) ;READ MBA STATUS REGISTER 
154E 3889 BwBS § #UCBSV_POWER,- ; Branch around if here at POWERFAIL. 
1346 890 UCBSW_STS(R5S ,50$ 
1556 o36 : If the oe Leute bit is not set then the TM78 ucode is not at the latest rev. | 
1556 38935 ; The integrity of the drive can not be guaranted if the device is not up 
1556 3894 ; to rev, hence do not configure the device until it is been broughten up 
1556 3895 ; to rev. This will be true in a release after after the ucode is available 
1556 538 ; however until that time we will the device to be configured into the system. 
1556 3897 ; We will also send a message to the operators console informing the user 
1228 538 3; of the problem. 
44 AS DD 1556 3900 ° PUSHL MF_ID(R3) : Get the indirect register 
8— 00000100 8F D3 1559 3901 BITL #MF_ID_M_HOLD, (SP) + ; If NEQ then bit is set do not 
1360 90 BwNEQ 50 ; configure units (ucode not up to rev) 
0040 8F AB 156 90 BISW #UCBSM_MF _UCBFREE,- : Initialize bit that indicates the UCB 
68 AS 1569 3904 UCB$W_BEVSTS(RS) ; fork block is free for asynchronous 
! 3s 444 ; suse. 
51 0090 3 9A 1 9° 309 MOVZBL UCBSB_SLAVE(R5),R1 ; R1 = MBA port number for TM78. 
51 1 1 78 1 908 ASHL R1,#1,R1 ; R1 = mask corresponding to attention bit. 
10 AS =—551~—s«éO0 ' o $44 MOVL R1,MF_AB(R3) ; Clear it just in case set. 
52 FA 8F 9A 1 a 911 MOVZBL #590 R2 ; Set a counter with small number 
FD 52—CéFS : as 316 5$: SOBGTR R2,5$ ; Waste time while ATIN bit clears. 
52. 54 AS C 1806 914 MOVZWL UCBSW_UNIT(R5S) ,R2 ; R2 = unit number of this drive. | 
9 A 1 ; 915 MOVZBL #F_SER 529° Bi * ; Do a SENSE command to see what kind 
3 A342 1 318 me wer (R3)CR2) ; drive we have. 
52 001€8480 8F 00 ' 4 4 108 MOVL #2000000 ,,R2 3; Set count to prevent hang. 
08 AS” ODD 12 F 318 ; PUSHL MBASL_SR(R4) ; Copy MBA status register to stack. 
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8E 00010000 8F 03 ! 38 2 9 BITL #MBASM_SR_ATTN, (SP)+ g Weft for SENSE to set MBA attention 
: on. 
93 ig 1599 39 § BNEQ eos ; NEQ implies the bit came on. 
F1 F5 1598 39 SOBGTR R2,10$ ; Branch back to test again until 
! 3E | ¢ 208 i; count overflows. 
10 a5 «(51 3 1235 9 § BITL R1 ,MF_AB(R3) ; Did we get attention yet? 
08 12 15A 9 BNEQ 30$ ; NEQ implies that TM78 attention set. 
0810 8F AA 15A4 3928 BICW  #UCBSM_ONLINE!UCBSM_VALIb,- ; If attention not set yet, 
64 AS 15A8 3929 UCBSW_STS(RS) ; set unit offline/invalid. 
40 11 13AA 4 , 308 BRB 40$ 3; And branch around. 
0154 CS DD 12a 9 § PUSHL UCBSL_MF_DT(RS) ; Save current value in case at POWERFAIL 
18 a3 dO 1389 9 MOVL MF_DTTR3),=- ; And move new value to UCB so as to 
0154 C 1583 3934 UCB SL MF _OT(RS) : subroutine TF_DTYPE. | 
10 A& 1586 3935 BISW #UCBSA_ORLINE,- ; TF_DTYPE assumes this bit is set and 
64 AS 1588 39 § UCB$SW_STS(RS) ;. clears if it does not Like DRIVE TYPE 
OOEF 30 15BA 393 BSBW TF_DTY ;CLASSIFY DRIVE TYPE F 
0154 C5 8EDO 1288 388 POPL UCBSL_MF_DT(RS) ; Restore in case we are in POWERFAIL. 
0158 CS) «OD 1365 940 PUSHL UCBSL_MF_DS(R5) ; Save current value in case at POWERFAIL 
1C AS) =6DO «61506 «03941 MOVL MF_OSTR3),=- ; And move new value to UCB so as to 
0158 C5 15¢9 308 UCSSL_MF_DS(R5) ; _call subroutine RECORD_SENSE_INFO 
0118 30 15C€C 394 BSBW RECORB_SENSE_INFO ; Record the sense info in UCB. 
51 0090 CS 9A I15CF 3944 MOVZBL UCBS$B_SLAVE(RS),R1 ; R1 = MBA port number for TM78. 
51 O01 51 £478 1504 3945 ASHL R1,#1,R1 ; R1 = mask corresponding to attention bit. | 
10 AS. 551 ~=—00 1508 «=—3946 MOVL R1,MF_AB(R3) ; Clear attention bit. 
0158 C5 8EDO 1306 ot POPL UCBSL “MF _DS(RS5) ; Restore in case we are in POWERFAIL. 
04 €0 15€1 3949 BBS #UCBSV_ONLINE,- 
06 64 AS 15E3 3950 UCBSW_STS(R5),40$ ; If SET, OK drive. 
0800 8F AA 15€6 3951 BICW #UCBSA_VALID,=- 
64 AS I3EA 93¢ on UCBSW_STS(RSS ;Clear VOLUME SOFTWARE VALID 
00B8 cS) «=6B4 «(15SEC «53954 CLRW UCBSW_MF_TMPLTC(RS) ; Clear template tape control register. 
54 AS FO 13F9 955 INSV UCBSW-UNTT(R5),= ; Put Unit number of drive : 
00 15F 956 #MF_TC_V_CMDADR,=- : in template tape control register. 
0 15F4 957 #MF_TC_S_CMDADR,=- 
0088 C 13F3 328 UCBSW_AF-TMPLTC(RS) 
01 FO 15F8 3960 INSV #i,- : Initialize the record count to 1 
02 1SFA 3961 wmf _TC_V_RC,- ; in template tape control register. 
06 15FB 396 #MF-TC"S"RC,- 
0088 C5 13FC 363 UCBSwW_MF-TMPLTC(RS) 
00 FO I5FF 3965 INSV #MFSK FORMAT_NORMAL_11,-; Initialize format field 
6s 160) 96 #MF _TC_V_FMT,= ; in template tape control register. 
0 16 ¢ 96 #MF TC S_FMT,= 
0088 ¢5 160 96 UCBSW_AF-TMPLTC(RS) 
0096 8F BO 1606 38 MOVW #TU78_MAX_REWIND,~ 
OOBE C5 16 A 370 UCBSW"MF_MAX_REWIND(RS) ; Init UCB field. 
1980 36 : 
160D 3975 ; Here we determine the address of the PTE for the EXTENDED SENSE area 
1600 3974 ; in the UCB so as to be able to efficiently execute this command 
160D 3975 ; during system operation. We also determine this area's offset in 
160D 3976 ; its page. The resuits of these calculations are deposited in 
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160D 3977; UCBSL_MF_SVAPTE mg ycosw MF gbort respectively. In ocder to 
1990 3°8 : effect an EXTENDED SENSE Command during system operation, we 
1600 3979 : ove the contents of these items in the UtB to UCBSL. SVAPTE and 
160D 3980 ; UCB SW W_BOFF, prior to invoking the macros that load the appropriate 
160D 3981 ; MBA r registers. 
18 Sa 
50 0188 CS 9E 19 | ¢ MOVAB UCBSL_MF_EXSNS(R5) ,RO ; RO => EXTENDED SENSE area in UCB. 
161 386 ASSUME ucesy. ar ms EQ UCBSW_MF _BCNT 
0004 cS «6550)«=6(09s—s«iOO:té‘éESCéié«~YNI+1 9 EXTZV : Extract byte offset of area in page 
161 988 Ucésu" A ; (also clear next word UCBSW_MF_8 NT) 
_ c5 3¢ 1619 39 MOVZBW aS ci hr FOCNT (RS) : Init EXTENDED SENSE byte count.” 
50 > i we ff 1616 990 EXTZV : RO = VPN of area in System Space. 
519000 0000 GF BO 16 5 991 HOVE she sé SP TBASE, R1 : R1 => System Page Table base. 
1630 399 ites _MF *SVAPTE(RS) ; Point to PTE for area. 
1839 3998 50s 
08 A4 BEDO 1630 6 POPL MBASL_SR(R4) ;CLEAR MBA STATUS 
05 1634 997 RSB 
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TF _LUNSOLNT = TM78/TU78 UNSOLICITED INTERRUPT PROCESSING 
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; This routine is called when an unsolicited interrupt is received for a unit. 
Only three types of unsolicited interrupts (i.e. TM78 initiated) can 
occur. These are DONE interrupts which occur when a REWIND operation 
terminates; ON-LINE interrupts which occur when a drive makes the 
transition to online with a tape volume loaded; and finally hardware 
fault interrupts. The subroutine determines which class of interrupt 
has occurred and branches to code to handle that type of interrupt. 


: INPUTS: 


R3 = Address of TM78 drive seere) Pesteter (CSR) 


8/ 
TU 
16 3999 
16 4000 
16 4001 
16 4 ¢ 
16 4 
16 4004 
16 4005 
16 4 § 
16 £88 
16 4008 
1635 4009 
16 2 $319 
16 401 
1638 4018 
1635 4014 R5 = Address of the device unit U 
+ 2 re dF UCBSW_MF_NDTA(RS) = Copy of the Non-data transfer attention register. 
1635 2017 ; OUTPUTS: 
1635 4018 Depending upon the class of interrupt, various bits are set and 
1635 4019 cleared. See below for details of how each class of 
1635 toss unsolicited interrupt is handled. 
1635 4021 
1635 40 ¢ 
183 88 
1838 4025 TF_UNSOLNT: sUNSOLICITED INTERRUPT PROCESSING 
52 DD 1635 t0s8 PUSHL R2 
00 EF 1637 4027 EXTZV  #MF_NDTA_V_NDIC,- 
06 1639 4028 #MF_NDTA_S_NDIC,- 
52 0168 C5 163A $363 UCBSL_MF “NDTA(R5) ,R2 ; R2 = Hardware interrupt code. 
52. 01 91 163E 4030 CMPB #H1C_BONE,R2 ; See if a REWIND is done. 
07 13 1641 4031 BEQL 30$ 3; Branch if DONE. 
52 OF 91 1643 1038 CMPB #HIC_ON_LINE,R2 ; See if unit has come ON-LINE. 
; Branc so. 
23.—S «13 1968 $887 BEQL 50$ B h if 
1648 4035 ; If we are here we have experienced some sort of attention for which no one 
1648 4036 ; is waiting. If so we just ignore it. 
1648 4037 ; 
1963 4038 
5E 11 1648 4039 BRB 70$ 
isk sae 
164A i049 3; We come here if the unsolicited interrupt was a DONE. This implies that 
164A 4045 ; a REWIND may have completed. 
164A 4044 ; 
1eca 20ce 308 
07 91 164A 1009 CMPB #F_REWIND!GO BIT,- ; Was last command executed a REWIND 
0180 C5 164C 4068 UCBSL_MF_CMDTR5) 
07 13 + 164F rtf BEQL 40% IF EQL ves 
28 91 1651 4050 CMPB #F _DSE!GO BIT,- : Or was it a DSE (ERASE REST OF TAPE 
0180 C 1653 4051 UCBSL_AF_CHD(RS) > AND REWIND) command? 
7s 2 1638 ? 26 soe BNEQ 0$ : If NEQ just noise, branch to end. 
AA 1658 4054 BICW #<MTSM_EOF!- ; We know that we are at BOT so update 
1659 4055 MTSM_LOST!- ; fields in UCBSL_DEVDEPEND to reflect 
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1659 405 MTSM_EOT>@-16,- 3; our exact position knowledge. 
46 05 16 1659 4 : UCos, BEVDEP ND+2(R5) 
01 ag 165¢ 4 8 BISW #<MTSA >,* ; Show that we are at BOT. 
§ A 16 3 405 UCBSL “BEVDEPEND#2(R5) 
0980 D4 1660 4060 CLRL UCB$L-RECORD(RS) ; Show absolute tape position 
00cs ¢ 2 CE 1664 4061 MNEGL # UCBSL. MF_PREVTM(RS) ; Also show ignorance of last TAPEMARK. 
D 11 1669 4 $6 Bee 70$ 3 Branch around to return. 
18 Sie 
1668 4065 ; If we come here we have experienced an ON-LINE interrupt; i.e. the unit 
1668 £208 3 has made a transition to ON-LINE with a volume loaded. Also note 
1668 188 ; that SENSE information is valid at this time. 
1668 4068 ; 
1668 4090 50S 
0154 C5 18 A3 dO 1998 4071 MOVL WEDS (RS) -UepSt” MF_DT(RS) : Save SENSE data which 
0158 C5 1¢ AS = DO = 1671 t8§ MOVL MF_DS(R ) UCBSL “MEDS (RS) : is valid after an ON-LINE 
015¢ C5) = 20 AS 0 1677 407 MOVL MF-SN(R3) ,UCBSL_MF_SN(R5) ; _interrupt 
0067 ) 1670 4074 BSBW RETORD_SENSE_INFO ; Call to os SENSE info to 
1680 tt i; appropriate UCB fields. 
10 A8& 1680 4077 BISW #UCBSM_ONLIN aE on 
64 AS 1682 4078 UCB$W_STS(RS) ; Tentatively —¥- — ON-LINE. 
0025 30 1684 4079 BSBW TF _DTYPE : Classify drive 
1687 4080 ; later ONLINE: te te FELINE transition. 
0168 CS) D4 1687 4081 CLRL UCBSL_MF _NDTA(RS) 3 Prevent a redundant galt to TF_UNSOLNT 
1688 res tt 3: (which m ight occur if we were waiting 
1688 408 5 fer the CBSM_MF "REWIND bit to go 
1688 ret: 3 zero). 
1688 6086 
1688 4087 : Now we either clear, set or leave as is the UCBSM_VALID bit Copending | on 
1688 4088 ; conditions. if we are here due to a power failure, we leav 
1688 4089 ; valid bit as is. If the unit has a volume that is mounted FOREIGN, 
ios 4090 ; we set the bit to mark the volume as valid. In all ot 
16 4091 ; circumstances we clear the bit since a manual ee eins has 
1688 1838 3 taken place on the drive and we can no longer be sure of the 
1688 4093 ; volume. 
1688 4098 
05 £0 1688 4096 BBS #UCBSV_POWER,- ! 
18 64 A * 1680 4097 me UCBs STS (RS) 70$ : If powerfail, leave as is and branch. 
Op 38 Ae ” 1698 ret one uces DEVCHAR(RS) ,608 3: If NOT mounted, branch to invalidate. 
08 38 AS 1697 4101 UCBSL_BEVCHAR(RS),60$ ; If mounted but NOT Seretgn. go to invalida 
0800 8F AB 169A 41 ¢ BISW #uces ID,- ; Tape is mounted foreign, s 
64 AS 169E 41 BSW_STS(R5S > set volume valid. 
0800 SF AA 1GA3 c108 608: Siew AURBSM_VALI em yee eee 
AA $ - 
64 AS 1on8 2} $ 70$ UCBSW_ syetnss ; Mark volume software INVALID. 
A : 
52 BE09 1en8 4108 POPL R2 
05 16AB 4109 RSB 3 
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1OAE 411] -SBTTL TM78 Classify Drive Type and set parameters. 
16AC 2118 ; TF_DTYPE = Routine called when an unsolicited ON-LINE interrupt occurs 
16AC 4114 ; on a drive or at unit initialization time at system startup or 
16AC 4115 ; after power recovery. 
16AC £138 3 
16AC 4117 ; INPUTS: 
16AC 2133 : => UCB 
1oAe 2133 j UCBSW_MF_DT(RS) contains a valid copy of the Drive Type register. 
16AC 4121 ; OUTPUTS: 
16AC 41 ¢ 3 UCBSB_DEVTYPE is set to valid value. 
16AC 41 3 UCBSM_ONLINE in UCBSW_STS is cleared if the device type does not 
16AC 4°26 ; match any valid device connected to a TM78 controller. 
16AC 4125 ; 
16AC 41 § 
16AC 4127 TF_DTYPE: 
FFFFFEOO BF CB 16AC 4128 BICL3 #*C<MF_DT_M_DTN>,- 
7E 0154 C5 16B2 4129 UCBSL_MF_BTTRS),-(SP) ; Drive type to top of stack. 
52 E97E CF QE 1686 4130 MOVAB TF_DTBEST,R2 ; R2 => Drive descriptor table. 
82 6€ 61 1688 4131 10S: CMPW (SP), (R2)+ ; Drive type match? 
OC 13 16BE 41 ¢ EQL 208 : If EQL yes. 
16CO 41 ASSUME TF_DTDESCLEN-2 EQ 1 ; Assumption allows subsequent INCL and DECL 
5 D6 16C0 4134 INCL R2 3; Advance R2 to next entry. 
6 B5 16C2 4135 TSTW (R2) 3; End of table? 
F 12 16€4 4136 BNEQ 10$ 3; If NEQ no. 
10 AA 16€6 4137 BICW #UCBSM_ONLINE,- 
64 AS 16C8 4138 UCBSW_STS(R5) : If unknown type, set unit offline. 
5 D7 16CA 4139 DECL R2 ; Back up to last driver descriptor. 
41 AS 6 90 16CC 4140 208: MOVB (R2),UCBSB_DEVTYPE(RS) ; Set drive type. 
008C C D4 1600 4141 CLRL UCBSL MEDIR ID(R5) ; Assume type unknown 
41 AS OO'8F 91 16D4 c136 CMPB #0T$_TU 8 ,UCBS$B_DEVTYPE (RS) : If type not a TU78 then branch 
09 12 1609 414 BNEQ 30$ 
008C CS 6D295046E 8F 00 16DB 4144 MOVL #MEDIA_ID_TU78,UCBSL_MEDIA_ID(R5) ; Set drive media id 
BE DS 1664 4145 30S: TSTL (SP)+ ; Erase drive type from stack. 
05 1666 4146 RSB ; Return to caller. 
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1667 4148 .SBTTL RECORD_SENSE_INFO 
16E7 4150 ; RECORD_SENSE_INFO = subroutine to update UCBSL_DEVDEPEND fields given 
1oEr $123 3 that we currently have valid sense information in hand. 
16E7 4138 3; INPUTS: 
16E7 4154 ; RS => UCB of interest. 
16E7 4155 ; UCBSL_MF_DS(R5) is a valid copy of TM78 register. 
16€7 $128 3 | 
16E7 415 
16E7 4198 RECORD_SENSE_INFO: 
AA 16€7 415 BICW #<MTSM_BOT!- ; We have exact SENSE information as 
16E8 4160 MTSM_EOF !- 3 to position (i.e. BOT and EOT) and 
16E8 4161 act se ; _also whether we have a RING or not. 
16E8 2198 MTISM_HWL>@-16,- ; So we clear these bits and then set 
46 AS OF 198 $19? UCBSL_BEVDEPEND+2(R5) ; those which still hold true. 
OA €1 16€B 4165 BBC #MF DOS _V_BOT,- ; Branch if NOT at BOT | 
11 0158 C5 16ED 4166 UCBSL_MF-DS(R5) ,10$ 
01 AB 16F1 4167 BISW #<MT$A_BOTa-16>,- ; Set BOT bit on in UCB field. 
46 AS 16F3 4168 UCB$L_BEVDEPEND+2(R5) 
10 AA 16F5 $192 BICW #<MTS$A_LOSTa-16>,- ; Clear the fact that we may have 
46 AS 16F? 4170 UCBS$L_BEVDEPEND+2(R5) =: been los 
0080 CS) «=—D4 «(O16F9 «4171 CLRL UCBSL_RECORD(R5) 3; Set tape position marker to zero. 
ooc8 cS) 02—és«éE 1ere 2126 ~ MNEGL #2,UCBSL_MF_PREVTM(RS5) ; And show ignorance of TAPEMARKs. 
: 
09 «EI 1703 4174 BBC WMF DS V_EOT,- ; Branch if not beyond EOT marker. 
04 0158 C5 1704 4175 UCBSL_AF-DS(R5) , 208 
04 a8 1708 4176 BISW #<MTSM_EOTa-16>.- : Set bit if we are indeed beyond the | 
46 AS 179 a1ee ons UCBSL_BEVDEPEND+2(R5) ; EOT marker. | 
08 €1 170C 4179 BBC #ME_DS_V_FPT,- ; Branch around if NO ring present on 
04 0158 C5 1706 4180 UCBSL_MF-DS(R5) , 30S : tape reel. 
08 As 1712 4181 BISW #<MT$A_HOLQ-16>,- 3; Set bit if NO ring present on | 
46 AS 1714 $186 UCBSL_BEVDEPEND+2(R5) ; tape reel. 
1716 41 30$: 
14 E€0 1716 4184 BBS #MT$V_LOST,- ; Branch around if LOST. 
OD 44 AS 1718 4185 UCBSL~DEVDEPEND(R5) ,40$ 
0080 CS) «(D1 =O171B «O44 186 CMPL UCBSL_RECORD(R5),- ; See if we are at a TAPEMARK by, conporing 
o0ocsé ¢5 171F 4187 UCBSL_MF_PREVTM(RS) 3; current position with last TAPEMARK. 
04 12 1722 4188 BNEQ 40$ ; NEQ implies not at a TAPEMARK. 
0 AB 1724 4189 BISW #<MTSM_EOF@-16>,- ; Set bit indicating currently positioned 
46 A Vy 6 ai39 408 UCBSL_BEVDEPEND+2(R5) ; at a TAPEMARK. 
OA €0 17 H £136 BBS #MF _DS V_BOT,- ; If at BOT, then ignore what drive 
1F 0158 C5 172A 419 UCBSL_AF~DS(R5) ,60$ : and leave UCB density as is. 
172E 419% ASSUME MFSK DENSITY 1600 EQ 0: Here we find out the drive density 
OOBA £5 94 17 5 4195 CLRB UCBSB_MF_DENSITY(RS) ; and set UCB variables accordingly, 
0 oD 17 4196 PUSHL ; We set the density to the default 1600 
50 04 DO 1734 4197 OVL #MTSK_PE_1600,R0 3; _and prepare to test the actual status | 
28 EO 1737 2138 BBS MF_DS_V_PE,- ; Branch if 1600 BPI bit set in device | 
07 0158 C 1739 419 UCBSL_AF-~DS(R5) ,50$ ; status register. 
173D 4200 ASSUME MFSK DENSITY 6250 EQ 1; we fall thru here if the drive is 6250 | 
QOBA 73 96 173D 4 8} INCB UCBSB_MF DEMS} VARS) ; We set density to 6250 in that case 
50 > § 53 ? ¢ 508 MOVL #AT$K-GCR_6250,R0 ; And get set to update UCBSL_DEVDEPEND | 
50 FO 1744 4 ba INSV RO,- ; Insert the density value into the 
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proper field of UCBSL_DEVDEPEND 
y passed in RO. 


so as to indicate the current 


densit 
; Restore 


; Return to caller. 
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ire : 1 ; SAVE_TM78_REGS = Subroutine to simply copy all TM78 registers to the UCB. 
174E 4214 ; 
174E 4215 ; INPUTS: 
174E 4 18 : 
174E 4217 ; Ri => TM78 CSR 
174E 4 18 $ RS => UCB 
174E 4219 ; 
174E 4220 ; OUTPUTS: 
174E 4221 ; : 
Ie ? § 3 Register values saved in the UCB. 
174E 4226 ; Note that since this routine is called at interrupt time (i.e. between 
174E 4225 ; WFIKPCH and IOFORK) it must comform to the register conventions in 
ree 2 8 3 force at that time, which include NOT destroying registers RO and R1. | 
174E 4228 | 
174E 4229 SAVE_TM78_REGS: 
174E 4230 
174E 4231 ASSUME UCBSL_MF_IS-UCBSL_MF_CS1 EQ MF_IS 
174E 4 % ASSUME UCBSL_MF_TC-UCBSL_MF_CS1 EQ MF_TC | 
174E 4 ASSUME UCBSL-MF-MR1-UCBSC_MF_CS1 EQ MF_MR1 
174E 4234 ASSUME UCBSL_MF_AB-UCB F_CS1 €Q MF_AB 
174E 4235 ASSUME UCBSL-MF-BC-UCBSL_MF-CS1 EQ MF~BC 
174E 4236 ASSUME UCBSL_MF_DT-UCBSL_MF_CS1 EQ MF_DT 
1746E 4337 ASSUME UCBSL-MF-DS-UCBSL-MF~CS1 © MF~DS | 
174E 4238 ASSUME UCBSL_MF_SN-UCBSL_MF_CS1 EQ MF_SN 
174E 4239 ASSUME UCBSL_MF-MR2-UCBSC_MF_CS1 EQ MF_MR 
174E 4240 ASSUME UCBSL_MF_MRS-UCBSL_MF_CS1 EQ MF MR 
174E 4241 ASSUME UCBSL_MF_NDTA-UCBSC_MF_CS1 EQ MF_NDTA 
174E 4 $s ASSUME UCBSL_MF_NDTO-UCBSL_MF_CS1 EQ MF_NDTO 
174E 424 ASSUME UCBSL_MF_NDT1-UCBSL_MF_CS1 MF_NDT1 
174E 4244 ASSUME UCBSL-MF-NDT2-UCBSL-MF-CS1 EQ MF-NDT 
24 4 45 ASSUME UCBSL"MF"NDT3-UCBSL-MF-CS1 EQ MF_NDT 
07 BB 174E 4247 PUSHR #*M<RO,R1,R2> :; Save registers. 
50 013 CS) 9E 1750 4248 MOVAB UCBSL_MF_CS1(R5),RO ; RO => Block in UCB where we save regs 
51 63 9E 1755 4249 MOVAB MF_CST(R3),R ; R1 => start of TM78 registers. 
52 10 00 1738 ? 9 108 MOVL #MF_LNDT3+4-MF_CS1/4,R2 ; R2 = number of registers to copy. 
80. 81 0 1798 4252 OVL_ (R1)+, (RO)+ ; Copy one Register to UCB. | 
FA 2 F5 175E€ 425 SOBGTR e ; Loop thru all contiguous registers. | 
44 A DO 1761 4254 OVL MF_ID(R3),=- 
017C¢ C5 1764 4255 UCBSL_MF_{D(RS5) ; Copy non-contiguous register. 
07 BA 1767 4256 POPR #*M<RO,RT,R2> ; Restore registers. | 
05 1769 4257 RSB ; Return to caller. 
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176A 4259 ; SAVE_MBA_REGS = Routine to rogers non-volatile MBA registers involved $ 

170A ? 1 3 in Data Transfer operations for ERROR LOGGING use. : 

ea e5eg ; (NPUTS: | : 

176A 4264 ; R3 => TM78 CSR S$ 

176A 4265 ; R4 => MBA CSR S 

ie te eee | it 

176A é 68 3 OUTPUTS: 3 

176A 4 is 3 Register values saved in the UCB. $s 

pea 2992 : 

176A 4& 8 3; Note that since this routine is called at interrupt time (i.e. between S$ 

176A 4274 ; WFIKPCH and IOFORK) it must comform to the register conventions in s 

176A 4275 ; force at that time, which include NOT destroying registers RO and R1. $ 

1k $316 | ; 

170A 2 4 SAVE _MBA_REGS: : 

176A 4280 ASSUME UCBSL_MFMBA_CSR+4 £2 UCBSL_MFMBA_CR | S 

176A 4281 ASSUME UCBSL-MFMBA_CR+4 £2 UCBSL-MFMBA~ S 

176A 4 8¢ ASSUME UCBSL-MFMBA-SR+4  €Q UCBSL-MFMBA_VAR S 

176A 428 ASSUME UCBSL-MFMBA_VAR+4 £Q UCBS$L_MFMBA_BCR S 

176A 4284 ASSUME UCBSL-MFMBA-BCR+4 £0 UCBSL-MFMBA_FMAP | S 

170A 2 82 ASSUME UCBSL_MFMBA_FMAP+4 EQ UCBSL_MFMBA_PMAP : 

03 BB 176A 4287 PUSHR #*M<RO,R1> ; Save registers. | S$ 

51 0120 CS) «=9E «6176C «4288 MOVAB UCBSL_MFMBA_CSR(R5),R1 ; R1 => MBA dump area in UCB. S$ 
1 64 D0 1771 4289 MOVL MBASL_CSR(R&), (R1)+ ; Save MBA CSR contents Ss 

81 04 A4 DO 1774 4290 MOVL MBASL_CR(R4),(R1)+ : Save MBA Control Reg. S 
81 08 A& DO 1778 4291 MOVL MBASL_SR(R4),(R1)+ : Save MBA Status Reg. $ 
81 OC AS DO 177C 4 38 MOVL MBASL—VAR(R4S,(R1)+ ; Save MBA Virtual ADOR Reg. s 
81 10 A4 D0 1780 429 MOVL MBASL_BCR(R4) ,(R1)+ ; Save MBA Byte Count Reg. S 
50 FBAl O08 O9 EF 1784 4294 EXTZV #9,#8,-8(R1),R0 ; RO = Final Map Reg. Number. S$ 
178A 4295 : NOTE; -8(R1) corresponds to $ 

178A 4296 > _ UCBSL_MFMBA_VAR(RS). | 5 

81 0800 C440 00 178A 4297 MOVL § MBASL_MAP(R4)CROJ,(R1)+ : Save Final Map Register. T 
61 D4 1790 4298 CLRL (R1) ; Zero UCBSL_MFMBA_PMAP in case T 

1036 4299 ; there is NO previous Map Reg. T 

50 7 1792 4300 DECL RO ; RO = Previous Map Reg # T 

06 9 1794 4301 BLSS 10$ ; LSS implies NO previous. T 

61 0800 C440 00 1736 ; 8 108 MOVL MBASL_MAP(R4)CRO],(R1) : Save Previous Map Register. ! 
03 BA 179C 4304 POPR #*M<RO,RI> ; Restore registers. T 

05 179€ 4305 RSB | ’ 
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79F .SBTTL TM78_NOTREADY (PRIOR and POST) 


: Code a, to when og of the bits UCBSM_MF_TMRDY or UCBSM_MF_ATIN 
is found set to either PRIOR to Losing. control via a WFIRPCA 

or just after regaining controt ote’? FIKPCH (POST). The 

setting of either bit goane th : ™M78 is out of whack and must be 

reset. the UCBSM_MF_ATIN bit 


is set then we must reset the TM78. 
If vce 


snk fr ATTN is not set “a the other one is we must wait for 

the TM78 to come ready again after it is reset. The first entr bere 
is branched to when one of the bits is found on PRIOR to the WFIKPCH 
and therefore we ay just issued a DSBINT macro. Thus we must 
perform an ENBINT to undo this. The second entry is branched to 
after a WFIKPCH . we must IOFORK to get down from interrupt state. 


INPUTS: 
R3 => TM78 CSR. 
R5 => UCB 
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! 
| 
| 
| 
| 
| 
ENABLE LSB 
TM78_NOTREADY PRIOR: 
ENBINT 
06 «171 BRE 10$ 
TM78_NOTREADY POST: 
i 4 10$ 1OF ORR 
05 €1 17AA BBC #UCBSV_MF _ATIN,= : Is it our coseqne Feit tty to TMCLR? 
09 68 AS ~ ZAC ay ucesu_DE BEVSTS(RS), 20$ =: Bit clear implies NO, so branch. | 
03 50 8 re BLBS RO,2 s| ; LBS implies successful TMCLR. 
FBDA 1 783 208 BRW FUNCTION_EXIT ; If failure, exit. 
788 RELCHAN ; Im case we own channel release it. 
04 «€1 78 BBC #UCBSV_MF_TMRDY 3; See if we must await the TM78. 
03 68 AS 7C UCB$W_DEVSTS(RS $,308 : Clear bit means NO, so branch. 
0065 30 ote 30$ BSBW RUAITS _ TARDY 
08 As rte BISW #UCBSM_MF_REPOS,- ; Signal need to reposition. | 
68 AS 7¢ UCB$W_BEVSTS(R55 
F6A9 30 17CA BSBW REPOSITION ; Call but if successful it branches 
7CD 3; to TF_RESTARTIO. 
08 AA 17CD BICW #UCBSM_MF_REPOS,- 3 Cloer Bit if unsuccessful reposition 
68 AS 7CF UCB$W_BEVSTS(R55 > operation 
50 0054 8F Ht 701 MOVZWL pees CTRLERR,RO 3 Rha + ne day tinal 1/0 status. | 
FBB9 31 1706 FUNCTION EXIf 
709 -DISABLE CSB 
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~SBTTL FAULT INTERRUPT 


semis + ny PT = subroutine called at interrupt level when a ‘B’’ type 
ault interrupt has been received. The strategy here is as follows: 


1. We sqt he UCBSM_MF_ATTN pit in our UCB$W_DEVSTS to indicate that 
t is our responsibil ty to do the TMCLR. 

2. We loop thru all UCBs associated with this TM78 and set the 
UCBSM_MF_TMRDY bits in each UCBS$W_DEVSTS to inidcate to 
processes that may gurrentty be using these UCBs that tney 
must AWAIT_TMRDY prior to proceeding with use of the TM78. 

3. We next determine whether we ISSUE_TMCLR inline (via IOFORK) 
or $s mely return to our caller confident that we will shortly 
call ISSUE_TMCLR at fork level. This determination is made 
on the following basis: if our UCB is NOT busy (i 
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inline. In all other circumstances (i.e. BUSY an 
PCBSN OF UCOFREE zero) we simply RSB to the interrupt 


handler. 

4. If we decide to proceed inline, we set bit UCBSM_MF_UCBEUSY 
in our UCBSW_DEVSTS to signal the fact that we are going 
to use the UCB fork block asynchronously and that anyone 
entering STARTIO had better defer until we finish. 

5. We ioe one to get out of interrupt context and then we call 

6. We reset OCBSM_MF_UCBBUSY. 

7. Now we either evaporate (i.e. RSB) or we go to startup a pending 
1/0 operation. The determining factor in this is whether 
the UCBSM_BSY bit is set in UCBSW_STS. A set bit means that 
some process has entered STARTIO since we began inline 
operation and therefore deferred its operation. It therefore 
is our responsi) 3's to start this operation. To do it 
we clear the UCBSB_MF_RSTCNT to indicate that we are starting 
an operation and then to branch to TF_RESTARTIO. If the 
UCBSM_BSY bit was zero we simply RSB. 
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INPUTS: 
R 


hardware fault code. 
TM78 CSR 


M78 IDB 


R3 => 
R4 => T 
R5 => our UCB. 


FAULT_INTERRUPT: 


BISW #UCBSM_MF_ATIN,=- ; We must do the ISSUE_TMCLR 
UCB$W_BEVSTS(R5) 

PUSHR #*m<rO,R1> 

CLRL RO ; Clear loop variable. 


MOVL J SL_UCBLST(R4)CROJ,R1 ; RI => a yce. 
; EQL implies no such UCB. 
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51 18A440 OD 
a? % BEQL 
0 A BISW #UCBSM_MF_TMRDY,- 3; Tell all others to wait. 
68 Al UCBs _BEVSTS(RIS 
F150 O03 F3 208: AOBLEQ #3,R0,10$ ; Loop thru all possible UCBs. 
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17F 4411 POPR #*M<RO,R1> 
17F tti§ 
17F2 441 8BC wie V.BSY,- 
17F4 4414 UCB$W_STS(RS) , 30$ ; If clear we can go inline, so branch. 
17F7 4415 BBS #UCBS0_MF_UCBFREE,- ; . Ry a UCB busy but FORK block free 
17F9 1218 utes BeyS13(R5) 30s 5 we branch to continue inline. 
17FC 441 BSBW SAVE_TM78_REGS : Record ™78 register values. 
17FF ret 25$: 
17FF 441 RSB ; We cannot continue inline, so return. 
1908 4420 30$: 
1800 4421 BBSS #UCBSV_MF_UCBBUSY ; Indicate we are about to asynchronously 
138 44 § UCBSW_BEVSTS(R5) 55S 3; use the UCB fork block unless it is 
1 44 ; ereany n use 
1303 4424 BSBW SAVE_TM78_REGS > Record 178 register values. 
1300 22 2 IOF ORK ; Leave interrupt level. 
180E 4427 MOVAB UCBSL_MF_SUBSTACK(R5),=- ; Initialize SUBSTACK pointer in case 
1812 4428 UCBSL_MF SUBSP(R5) ; it is NG. 
13 4429 BSBW ISSUE- TMTLR 
1818 4430 BICwW #UCBSA_MF_UCBBUSY,- ; We no longer need the UCB fork block. 
181¢ is3 UCBSW_BEVSTS(R5) 
1B1E 44 : BBC #UCBSV_BSY,- ; If UCB NOT busy, branch. 
1368 seee UCBSW_STS(R5S) ,40$ 
1823 4436 CLRB UCBSB_MF Pe torr sass ; Begin operation with zero count. 
1827 4437 BRW TF_RESTARTI ; Go begin 1/0 operation/ 
182A 4438 40$: 
182A 4439 RSB ; Evaporate. 
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voun008 AWAIT_TMRDY met 88 08 33 LORIVER. SREITFORIVER MAR: 1 . 
} : reek -SBTTL AWAIT_TMRDY 
1828 1068 ; AWAIT TMRDY = subroutine called when the driver finds UCBSM_MF_TMRDY bit 
182B 4444 ; set in UCBSW_DEVSTS. This bit set means that a ‘8’ t fault has 
182B 4445 ; occurred on some other TU78 drive connected to this T and that 
1828 ert : a TMCLR has been or soon will be issued within the context of the 
182B 4447 ; UCB associated with the drive that experienced the fault. When the 
182B 4448 ; TMRDY bit in TM78 register MF_ID comes on after the TMCLR has been 
182B 4449 ; issued, this other process will reset our UCBSM_MF_TMRDY and we will 
182B 4450 ; be able to continue. Here we sineny wait for this bit to clear. The 
182B 4451 ; method of waiting is to simply IOFORK. This puts us on the end of 
\3 B 1228 3 the fork List. We are guaranteed that the other process which will 
182B 4455 ; reset our bit is also at fork level and is also looping, via IOFORK, 
182B 4454 ; awaiting the TM78 hardware bit to come on. 
182B 4455 ; 
182B 4456 ; INPUTS: 
182B 4457 ; R5 => UCB 
182B 4458 ; 
182B 4459 ; OUTPUTS: 
182B 4460 ; NONE 
182B 4461 ; 
1828 ree 
1828 4463 AWAIT_TMRDY: 
Ieee 4464 SUBSAVE 
1835 4465 SUBPUSH R3 
53 FF 8F QA 183F 4466 MOVZBL #255,R3 ; Prevent infinite Loop. 
1843 4467 10$: 
04 €1 1843 4468 BBC #UCBSV_MF_TMRDY,- ; If clear then our wait is over so 
15 68 AS 1845 4469 UCB$W_BEVSTS(R55,20$ |: branch around. 
1848 4470 IOF ORK ; Allow other process in to reset bit. 
F253 FS 184E 4471 SOBGTR R3,10$ ; Loop a Limited number of times. 
10 AA 1851 447 BICw  #UCBSM_MF_TMRDY,- : If it doesn't get reset, then we do it 
68 AS 1933 447 UCBS$W_BEVSTS(RSS 3 ourselves. 
50 0054 BF 3C 1855 4474 MOVZWL #SS$_CTRLERR,R ; If it doesn't reset soon, forget it. 
FB35 =31 «185A 4475 BRW FUNCTION_EXIf ; Set error status and goto exit. 
185D 4476 20$: 
185D 4477 SUBPOP R3 
1867 4478 SUBRE TURN 
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~SBTTL ISSUE_TMCLR 


Page 100 
” (1) 


ISSUE_TMCLR = subroutine to invoke extended sense, errorlog, and to 
; issue a TMCLR to reset the TM78 hardware which is seperentty 
k. After a successful TMCLR we reset the UCBSM_MF_TMRDY 
bits in UCBSW_DEVSTS in all UCBs attached to the TM78. 


; INPUTS: 
RS => UCB 


: out of whack. 
: OUTPUTS: 

: RO = status return. 

; SS$_NORMAL implies successful TMCLR 
I 


SS$_CTRLERR implies unable to complete TMCLR. 
; Registers R1 and R2 are modified due to IOFORKING. 


SSUE_TMCLR: 


SUBSAVE 
SUBPUSH R3,R4 
MOVL UCBSL_CRB(R5) ,R3 ; R3 => TM78 CRB 


Here make sure that we do not bog down the system with multiple TMCLRs 
to a sick TM78. We do this by refusing to do a TMCLR if less than 
15 seconds have occurred since the last one. The time of the Last 
one is kept in CRBSL_AUXSTRUC. 


53 24 AS D0 
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50 10A3 OF C1 ADDL3 #15,CRBSL_AUXSTRUC(R3),RO ; RO has time 15 seconds after 
00000000'GF 50 01 CMPL RO G6*EXESGL_ABSTIM : last TMCLR. Is that in the 
i BGEQU § 15$ ; past?. GEQU means no. 
00000000'GF 00 MOVL G*EXESGL_ABSTIM,- ; If we are going to do TMCLR, 
10 A3 CRBSL_AURSTRUC(R3) ; then record time now in CRB. 
ASSUME IDBSL_CSR EQ 0 
53 2c B3 =sCé#d MOVL @CRBSC_INTD+VECS$L_IDB(R3) ,R3 ; R3 => TM78 CSR 
AA BICW #UCBSM_MF_ATTN!- ; Reset bit that provoked this call. 
UCBSM_MF_EXSNS_DONE,- ; and bit that prevents redundant 
68 AS 0220 8F UCBSwW_BEVSTS(R5) 3 extended sense operations. 
RELCHAN ; Just in case we had channels. 
44 A3 00004000 or gs BISL #MF_ID_M_TMCLR,MF_ID(R3); Reset TM78 hardware. 
54 «OFF OF A aC ‘2. MOVZBL #255,R% ; Setup count to prevent infinte loop. 
C IOF ORK ; Waste 3 Little time. 
44 AS 00008000 BF 03 C BITL #MF_ID_M_TMRDY,MF_ID(R3); Has TM78 settled down? 
oF ig D BNEQ ; NEQ implies TM78 now reset. 
ED 54 SOW‘ D SOBGTR R4,10$ 3 Lop a Limited number of times. 
D 15$: ; Either failed or refused to do TMCLR. 
10 AA D BICW #UCBSM_MF_TMRDY,- : In the case of failure, reset our 
68 AS D UCB$W_BEVSTS(RSS : bit, 
50 0054 8F 3C D MOVZWL G555_CTRLERR RO ; Set final 1/0 status. 
-. “Ee : 208 BRB 50$ 3; And branch around. 
54 24 AS dO E MOVL UCBSL_CRB(RS) ,R4 ; R4 => TM78 CRB. 
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54 2C AG DO 18€7 4537 MOVL CRBSL_INTD+VECSL_IDB(R4) ,R4 ; R4 => TM78 IDB. 
50 34 ! 43 ; 8 308 CLRL RO ; Loop counter. 
53 18 A440 00 1 ED 4 | é MOVL IDBSL_UCBLST(R4)CROJ,R3 ; R3 => a UCB. 
06 =«1 18F2 454 BEQL 40$ ; EQL implies no such UCB. 
1 AA 18F4 £224 BICw #UCBSM_MF_TMRDY,- ; Signal other processes that they 
68 A 1 Fé 454 UCBSW _DEVSTS(R3) ; may continue. 
F150 O F3 } 4 $242 40$: AOBLEQ #35,R0,350$ ; Loop thru all 4 possible drives. 
a 7 ' re $268 50s MOVZWL S*#SS$_NORMAL ,RO ; Set final status. 
18FF 4348 " SUBPUSH RO ; Save STATUS. 
03 50 €9 1909 454 BLBC RO,60$ 3; If TMCLR was UNsuccessful, branch, 
190C 4550 3; since if we couldn't TMCLR, we can't 
IRE $223 ; do an EXTENDED SENSE either. 
F927 = 330 12Re 4338 60s BSBW INVOKE _EXTENDED_SENSE 
0200 8F AA 190F 4555 BICW #UCBSM_MF_EXSNS_DONE,- ; Clear again so we can get SENSE on 
68 AS Ig $228 UCBSW_BEVSTS(R5) ; regular I/0 operation errorlog. 
00000000 ' GF 16 1312 $226 JSB G*ERLSDEVICEATTN ; Call speciai errorlog entry. 
191B 4560 SUBPOP RO 3; Restore STATUS. 
1925 4561 SUBPOP R4,R3 
1939 4562 SUBRE TURN 
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AVE CONTROLLER INTERRUPT DIS 5=SEP=1984 DRIVER. SRCITFDRIVER.MAR; 1 
: -SBTTL TM78/TU78 SLAVE CONTROLLER INTERRUPT DISPATCHER 
; ; TFSINT - TM78/TU78 SLAVE CONTROLLER INTERRUPT DISPATCHER 
: THIS ROUTINE IS ENTERED Vat SB INSTRUCTION WHEN AN ATTENTION 
sNreRnurl he a ON A TM78/TU7 Ave CONTROLLER. 
THE $ STACK ON ENTRY 


rte fe OF IDB ADDRESS. 


DRS. 
INTERRUPT PC. 
INTERRUPT PSL. 
; INTERRUPT DISPATCHING OCCURS AS FOLLOWS: 


3 For DATA TRANSFER interrupts we simply restore registers R3 and R4 
: call back the DRIVER at the return address. We determine that we 
: are processing a DATA TRANSFER interrupt if both the PRIMARY and 

; SECONDARY channels (i.e. the TM78 CRB-IDB and the MBA CRB-IDB) are 
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owned by the UCB of interest and the UCB is expecting an interrupt. 


If we did NOT have a DATA TRANSFER interrupt we simply branch around 
the call back to the DRIVER. 


After return from the DRIVER call ae _ after branching around the 
DRIVER call back, as the case may b e proceed to determine if an 
ATTENTION interrupt is present and if se we process. 


We determine if the attention bit is set for the TM78. If this is 
not so, we simply branch around to dismiss the interrupt a &§ 

however the attention bit for the TM78 is set we proceed to read the 
Non-Data Transfer Attention register in order to determine which 
drive caused the ATTENTION. If the unit is eapest tng os an Tasos py 
then the DRIVER is called at its interrupt return addre If n 
interrupt was expected, then the DRIVER is called at its SONSOLICITED 
interrupt address. Upon return from either call the attention bit is 
cleared and the interrupt is dismissed. 
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$8 TFSINT:: 3TM78/TU78 SLAVE CONTROLLER INTERRUPT DISPAT | 
54 00 BE dO 6 MOVL a(SP),R4 3; R&4 => IDB. 
55 04 A4 09 60 MOVL {DGSL _OUNER CAS) RS ; RS => owner UCB. 
| eo a BEQL 0$ ; EQL => no owner. 
61 ; If here we own PRIMARY channel. 
54 4 AS 4 61 MOVL Ucoss cReCe>) «* ; R4 => TM78 CRB 
54 20 Aa 61 MOVL  CRBSLTLINK(R4SR : RG => MBA CRB 
54 OC AG ODO 61 MOVL  CRBSL~ NTDOVECEL 1DB(R4), RG : RG => MBA IDB 
04 a4 «55 «ODT 61 CMPL RS, IDBSL_OWNE 3; Are we owners of MBA also 
0c 12 2 BNEQ 10$ ; If NOT, branch around oe back. 
61 : If here we also own SECONDARY channel. 
01 =€5 62 BBCC #UCBSV_INT,=- : If clear DATA TRANSFER interrupt not 


6 12 


TI 
- 78 MAGTAPE DRIVER 16-SEP-1984 00:08: AX/VMS Macro V04-00 Page 103 _ | 
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TS(R5),10$ i _expected, so branch around call back. 
53°" % nS 7D 1964 te MOVa UcBst -FRS«RS) ag ; Restore driver registers R35 and R4. 
0c 85 «16 1968 46 ; JSB QUCBSC_FPC(RSS : Call back driver at return address. 
1968 4625 ; 
: if the TM78 has a pending attention interrupt. To do that 
1968 te : : wee ne tivek qeareian which port o4 the -MASSBLIS is occupied by this TM78. 
1968 4628 ; To do this we obtain a pointer to the MBA-CSR indirectly 
1968 4629 ; through the IDB=>ADP. OF th the TM78-CSR address already in hand, 
1968 4630 ; we subtract to determine the distance of the TM78-CSR to the base 
1968 4631 ; of the MBA external registers. This difference divided by 128 | 
196B 46 § 3 (right shifted by ) gives the port number of interest. We then test 
1968 4635 ; the attention bit corresponding to the port number. | 
1338 88 
: P),R4 3 Again R4 => IDB. 
5300 BE BB HRA SEHR TO RBM Bena ng | ABPES ec 
199 4638 ASSUME ADP$L_CSR €E€Q 0 | 
55 14 B4 00 1995 1039 OVL 1DBSC_ADP(R4) RS 3; RS => MBA-CSR 
52. 0400 CS 9E 1976 4640 MOVAB MBASL_ERB(RS) ,R2 : R2 => base of MBA external registers | 
52 53 52 C3 1978 4641 SUBL RETRO $ Rs = distance of TM78-CSR from base 
52. 52 F9 BF 7B 197F 464 ASHL =? ,R2,R2 ; R2 = MBA port number. | 
54 04610 C5 D0 1984 1ee8 MOVL MBASL_AS(R5) ,R4 3; R4 = MBA attention summary. 
7654 52 €1 1989 4644 BBC Be gan f9s 3 Brench if pe gi tent ren pending. | 
3 Aga = ‘ ; 
pith ot a BB 1994 4646 PUSH omcRd RSD F Rencaber registers to clear attention. | 
1993 2648 ; | 
; h ding attention condition. We read the 
1998 1680 ; seh een trenster attention register (MF_NDTA) and extract the 
1993 4651 ; unit number of the device which generated the attention. f | 
1993 4652 ; the UCB corresponding to this unit indicates that an interrupt is 
1993 1688 : expected, then we reload the driver fork context and call back the 
1993 4654 ; driver. If however no interrupt is expected, we call the unsolicited 
1993 4655 : interrupt entry. In either case we then clear the attention bit 
1988 £828 3 and proceed to dismiss the interrupt. 
199 3 | 
1993 4658 
(R3) 3; Save Non-Data Transfer Attention 
2c Ad” soOOD 1936 4860 PUSHL MF_NDTA(R3 opted mapa | 
9 eg EF 1998 hey EXTZV ne at oe number of device of Seiiead 
; => nit o P 
toed Maa ? 19k tees BNEG aie cei: Sammie : If we got : UCB, OK branch. 
D5 19A2 466 TSTL (SP)+ ; Else clear MF_NDTA from stack. 
sf 11 1 iss 208: BRB 60$ 3; And branch around. 
: . | 
68 AS ue 19A 1890 sax Ucese DEVSTStRS). ; Reset REWIND in progress, just in case. | 
0 EF 19AA 4671 EXTZV #MF_NDTA_V_NDIC,- ; Extract interrupt code from 
$6 19AC sor6 PAE SNDTALS_NDIC,~ ; interrupt status returned by 
SP), : 
8468 es 8EDO 19Ar d674 POPL UCBSL_MF_NDTA(RS) ; Copy contents of register to UCB. 
NE,R : See if UNSOLICITED On-Line interrupt. 
= of 3 198 1679 bear Sop -oN at site : If so, branch around even if we are 
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#HIC_THFAULT_8,R2 
WHIC_TU_FAULT_8,R2 


#HIC_MB_FAULT,R2 
40$ 


w 
o 
Sed 


#°M<R3,R4,RS> 
FAULT. {NTERRUPT 
#°M<R3,R4,RS> 


#UCBSV_INT,- 
UCBSW_STS(R5) , 50S 


UCBSL_FR3(R5) ,R3 
aucBsC_FPC (RS) 


TF_UNSOLNT 
#UTB$V_INT,=- 
UCB$W_STS(R5) ,60$ 


WAITING_FOR_REWIND,R2 
R2 ,UCBSL_FPC (RS) 
WAITING FOR_MANUAL ,R2 
R2 ,UCBSC_FPC(RS) 


#*M<R2,R5> 
R2,#1,MBASL_AS(RS) 


00:08:13 yanives Macro V04-00 Page 104, 
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eapeet ine an interrupt since the 
other interrupt will occur Later. 


; See if the interrupt code coincides 


with one of the UNSOLICITED type 
FAULT codes. If so then 

we treat it as both an UNSOLICITED 
interrupt and then see if we were 
expecting something. 


; Since we ney IOFORK in FAULT_INTERRUPT 
; Record FAULT d 


ata. 
Restore. 


; Branch to call TF_UNSOLNT if not expected. 


; Restore pegrgtere R3 and R4. 
; Call back 
; Branch around. 


river at return address. 


; Call unsolicited interrupt entry. 
; If NOT waiting for an interru 


t, 
branch around the following KLUDGE. 


Here, we MUST have received an ON-LINE 
interrupt while also awaiting a 

DONE interrupt. Unless this is due 
to awaiting a MANUAL rewind or to 
waiting for the UCBSM_MF REWIND bit 
in START_IO, we ignore if. To deter- 
mine whether either of these two 
conditions obtain, we compare the 
FORK return point to those associated 
with these two conditions. 

R2 => return point waiting for bit to 
reset. 

See if the same. 

If =, honor interrupt and resume thread. 

R2 => return for manual rewind. 

Are they =? 

If =, branch to resume thread. 

Here we clear the attention bit. 

Restore R2 = port #, RS => MBA-CSR. 

Clear attention summary bit. 


lear IDB ptr from stack. 


Cle 
RESTORE REGISTERS 


ADDRESS OF LAST LOCATION IN DRIVER 
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Symbol table are 
TYPE 

SS$_ENDOF VOLUM = 9A0 TF 0 AOE R 
SSe-Atborten” = B88 Ad TE -FUNCTABLE 0050 
38S NONE KD : 1¢4 TFIREGDUMP 1418 R 
SSS NORMAL = 61 TFTRESTARTIO 0152 R 
SSE OP INC 0000204 TFTSTARTIO 145 
SeS-TineOuT = 9000092¢ TF-UNSOLNT 1635 R 
Seen voriny. . é TIMEOUT QOO0EA2 R 3 
See-uniive = C TIMEOUT _POWERFAIL Q000E76 R 03 
START AVAIL 0000208 R TIMEQUT-RETURN OO00EES RO 
SAT -pevetheee 0058C R 1478_INTT 0001428 R 3 
START “DSte S0008ES TN7B-NOTREADY_POST O17AG RO 
STARTTERA D000e82 TH78-NOTREADY-PRIOR 1797 R 0 
STARTINOP SY 000028C R TN78-TXXX_ INIT 001532 R 08 
START INOS 0000284 R TU78-MAX_DSE = 000002A 
START PACKAC 0000028C R TU78" MAX" REWIND = 90000096 
START READL SL 44 1F R 03 Tu? grax SPACE . 4 343 
START READPRES 9000028 RO HEBSe-DEVCLASS = 90000040 
STARTORECAL 00000368 R 08 UCBSB_DEVTYPE = 90000041 
START-REWIND DOO00sED RO UCBSB-ERTCNT = 90000080 
a Bs bt by geo 90000s8c RO UCBSB~ERTMAX = 00000081 
START SENSEMODE 9o000z8¢ ROS UCBSB~FEX = 90000092 
STARTISET CHAR QoobossE R08 YEBSB-ME DENSITY 0000008A 
mH o0000sFc R «O08 UCBSB MF “RSTCNT 0000088 
START “Se TPR O00004F2 ROS UCBSB-SLAVE = 00000090 
START SPACEFILE. QO0003FC R sO UCBSK-LCL_ TAPE LENGTH = 00000084 
ST ePATERete O04F2 R 03 UCBSK-MF_CENGTA = 0000014 
START~SPACERECORD 000004F2 R 03 UCBSK AF = Ho0930se 
STARTTURITEG oo00o8es RO3 UCBSL~DEVCHAR = 00000038 
STARTIWRITECBLR Do0008ee ROO UCBSL ~DEVCHAR2 = 0000003¢ 
START“URITENARK 000069F R 03 UCBSL ~DEVDEPEND = 00000044 
STARTIURITEOR oo00088F RO UCBSL-FP = 0000000¢ 
START-URITEPE oo008ee R83 UCBSLTERS = 00000010 
ist Oo001sb6 ROS UCBSL~1OQFL = 0000004¢ 

$y terereee X03 UCBSL-IRP = 00000058 
TAT GEDDEPEND 0003 UCBSL-MEDIA_ID = 9090008¢ 
TATIPEAGE 69000008 UCBSL MF MBA~BCR 009001 30 

ttn B00000A YEBSLTAFMBATESR 00000120 
Aho = 00000004 UCBSL_MFMBA~FMAP 000001 34 
TATTACERRLO : 1 UCBSL~MFMBA~PMAP 0000138 
TATACPOST = 9900000 HEBSL-RERBATS 
TAT _M_POSITION ; UCBSL~MFMBA-VAR 00001 2¢ 
TAT_M~PREV . of UCBSL "MF AB™ 900014¢ 
TAT_SOFT STAT UCBSL “MF "BC 9000 15 
TAT "Wee = 008 UCBSL~MF~CHD 900180 

“y" : BSL-MF~CS1 
TAT-V"PO = $0000001 UCBSL AEDs 000158 
TAIWV"PREVTO” = 90000008 UCBSL MF -DT 0000154 
soot 000000 RG 0 UCBSL “AF “EXSNS 188 
1h CAN boa Re YEBSCCMET Is 00014 
TETbIDERC 093 ‘ UCBSL AF “ARI 00014 
TF-DTDESCLEN = UCBSL_MF _MR2 
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r 
DRIVER. SRCITFORIVER.MAR; 1 | 


$e e nme eee ween ewoan + 


! Psect synopsis ! 


temas cose ee eoeaea} 


PSECT name Allocation PSECT No. Attributes 


. ABS . 0000000 < of 9 ( 0.) NOPIC USR CON LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 83 104 (¢ 452.) 01 ¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$105_PROLOGUE 0000080 ( 128.) 8 ( ¢°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$115_DRIVER QOOOIA0C ( 6668.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG | 
$eoooeoooccce eee ewes ewacet 
H Performance indicators ; | 
Phase Page faults CPU Time Elapsed Time | 


Initialization 32 90:00:00. $ 00:00:01.07 
Sy paver Bh SSBRNRS? HB OF 
és $ : e : : e 
Symbol table sort 0 0:00:02.95 0:00:09.68 
Pass 2 411 00:00:08-83 00:09: 3.91 
Symbol table output 1 00:00: 34 00:00:00.96 
Psect synopsis output 0 00:00:00.02 00:00:00.02 
Cross-reference output ? bs She a 4 es ey 
Assembler run totals 138 0:00:42.8 00:02:31.80 


The working set Limit was 2850 pages. : 
248906 bytes (487 pages) of virtual memory were used to buffer the intermediate code 

There were 150 pages of symbol table space allocated to hold 2529 non-local and 272 

4730 source Lines were read in Pass 1, produc ing 4 object records in Pass 2. 
69 pages of virtual memory were used to define 62 macros. 


local symbols. 


Nee rr + 
; Macro Library statistics : 
Macro Library name Macros defined 
.$255$0UA28:(SYS.OBJJLIB.MLB; 1 33 
$255$DUA28: (SYSLIBISTARLET.MLB; 2 11 
TOTALS (all Libraries) 44 


2478 GETS were required to define 44 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LISS$: TFORIVER/OBJ=OBJ$: TFDRIVER MSRC$: TFDRIVER/UPDATE=(ENHS: TFDORIVER) +EXECMLS$/LIB 
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